更改ggplot2中轴文本的字体大小和方向

d <- data.frame(x=gl(10, 1, 10, labels=paste("long text label ", letters[1:10])), y=rnorm(10))
ggplot(d, aes(x=x, y=y)) + geom_point() +
    theme(text = element_text(size=20),
        axis.text.x = element_text(angle=90, hjust=1)) 
#vjust adjust the vertical justification of the labels, which is often useful

ggplot(mtcars, aes(x = factor(cyl), y = mpg))+
  geom_point()+
  theme(axis.text.x = element_text(color = "grey20", size = 20, angle = 90, hjust = .5, vjust = .5, face = "plain"),
        axis.text.y = element_text(color = "grey20", size = 12, angle = 0, hjust = 1, vjust = 0, face = "plain"),  
        axis.title.x = element_text(color = "grey20", size = 12, angle = 0, hjust = .5, vjust = 0, face = "plain"),
        axis.title.y = element_text(color = "grey20", size = 12, angle = 90, hjust = .5, vjust = .5, face = "plain"))

ggplot(data=df_subset,aes(x=Part,y=Removal_Frequency,fill=Part))+geom_bar(stat="identity")+theme(axis.text.x  = element_blank())

d <- data.frame(x=gl(10, 1, 10, labels=paste("long text label ", letters[1:10])), y=rnorm(10))
ggplot(d, aes(x=x, y=y)) + geom_point() +
theme(text = element_text(size=20))

   library('ggplot2')
   theme_update(text = element_text(size=20))
   ggplot(mpg, aes(displ, hwy, colour = class)) + geom_point()

library(dplyr)
library(tibble)
library(ggplot2)

推荐文章

性感的煎鸡蛋 · notepad cmd /k 有空格找不到路径 notepad++中运行python代码 - 西部世界koo - 简书

1 年前

聪明伶俐的大象 · flink taskmanager oom 调优过程_cs3520的博客-CSDN博客

1 年前

绅士的跑步机 · TTF里都有什么 - 墨天轮

1 年前

踢足球的奔马 · Bitmap 转 Base64 字符串及转 Json 后新增换行符及部分符号被转义 - 知乎

1 年前

贪玩的山楂 · MATLAB卷积和快速傅里叶变换 - 知乎

1 年前

更改ggplot2中轴文本的字体大小和方向

6 个回答