Это мой первый пост!
Просто интересно, как убрать эти заголовки над диаграммами:
Вот код схемы!
Думаю, мне придется использовать что-то вроде:
p + тема (ось.название.x = element_blank(), axis.title.y = element_blank())
ggplot(data=bike_data_v4)+
geom_bar(mapping = aes(x=day_of_week,fill=member_casual))+
scale_x_discrete(limits = c("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"),
labels = c("Sun","Mon","Tue","Wed","Thu","Fri","Sat"))+ #the discrete lines show how I rearranges the x-axis labels to go from sun-sat and be renamed to shorter text
facet_wrap(~member_casual)+
labs(title = "Weekly Rider Differences by Cyclist Type", subtitle = "Members vs. Casual Riders",
x = "Day of the Week",
y = "Number of Overall Rides",
caption = "Data Provided by Google Capstone Project")+
scale_y_continuous(limits=c(0,500000), labels = scales::comma)+ #this combined scale_y_continuous(limits=c(0,500000) AND scale_y_continuous(labels=comma)
theme_fivethirtyeight()+
labs(fill='Rider Type')+
theme(axis.title = element_text())
Вы ищете вариант strip.text
.
library(tidyverse)
iris |>
ggplot(aes(x = Sepal.Length, y = Petal.Length)) +
geom_point() +
facet_wrap(~ Species) +
theme(strip.text = element_blank())
Я закончил тем, что изменил код в самом низу! ДОБАВЛЕНО strip.text = element_blank())
Теперь гистограмма выглядит так:
ggplot(data=bike_data_v4)+
geom_bar(mapping = aes(x=day_of_week,fill=member_casual))+
scale_x_discrete(limits = c("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"),
labels = c("Sun","Mon","Tue","Wed","Thu","Fri","Sat"))+ #the discrete lines show how I rearranges the x-axis labels to go from sun-sat and be renamed to shorter text
facet_wrap(~member_casual)+
theme(strip.text = element_blank())+
labs(title = "Weekly Rider Differences by Cyclist Type", subtitle = "Members vs. Casual Riders",
x = "Day of the Week",
y = "Number of Overall Rides",
caption = "Data Provided by Google Capstone Project")+
scale_y_continuous(limits=c(0,500000), labels = scales::comma)+ #this combined scale_y_continuous(limits=c(0,500000) AND scale_y_continuous(labels=comma)
theme_fivethirtyeight(base_size = 12, base_family = "sans")+
labs(fill='Rider Type')+
theme(axis.title = element_text(), strip.text = element_blank())
Да, это кумулятивно, поэтому всегда добавляйте любые theme()
корректировки к конкретной общей теме в самом конце. Хотя, если честно, я думаю, что вы должны оставить метки граней и вместо этого удалить цветные метки с помощью labs(color = "none")
.
Спасибо! Я должен буду попробовать это
Извините, я хотел сказать guides(color = "none")
, а не labs()
Благодарю вас! Я думаю, что синтаксис «theme_fivethirtyeight» повторно вводил новый заголовок метки даже после «theme (strip.text = element_blank())». Я думаю, что мне придется просто обойтись без этой темы, чтобы предотвратить дублирование информации!