Tidyverse로 데이터 소통하기
Timo Grossenbacher
Data Journalist


ggplot(plot_data) +
geom_histogram(aes(
x = working_hours)) +
labs(x = "Working hours per week",
y = "Number of countries") +
theme(
text = element_text(
family = "Bookman",
color = "gray25")
)

ggplot(plot_data) +
geom_histogram(aes(
x = working_hours)) +
labs(x = "Working hours per week",
y = "Number of countries") +
theme_classic()

ggplot(plot_data) +
geom_histogram(aes(
x = working_hours)) +
labs(x = "Working hours per week",
y = "Number of countries") +
theme_classic() +
theme(
text = element_text(
family = "Bookman",
color = "gray25")
)

?theme
axis.title
축 레이블 (element_text; text에서 상속)
axis.title.x
x축 레이블 (element_text; axis.title에서 상속)
axis.title.x.top
위쪽 x축 레이블 (element_text; axis.title.x에서 상속)
axis.title.x.bottom
아래쪽 x축 레이블 (element_text; axis.title.x에서 상속)
element_text()
element_rect()
element_line()
element_blank()
ggplot(plot_data) +
geom_histogram(aes(
x = working_hours)) +
labs(x = "Working hours per week",
y = "Number of countries") +
theme(
text = element_blank()
)

Tidyverse로 데이터 소통하기