data=mtcarsggplot(data,aes(mpg,disp))+geom_point()+theme_bw()+facet_grid(cyl~gear)+# 按照 cyl和 gear分面theme(strip.text.x=element_text(size=30,colour="#FC0043"))+# 设置分面的字字体大小、颜色、背景、边框,theme(strip.text.y=element_text(size=15,colour="#60FC00"))+theme(strip....
ggplot(iris,aes(Sepal.Length,Sepal.Width))+ geom_point(aes(size=Petal.Length,color=Petal.Width))+ facet_grid(.~Species) 3.然后使用windowsFonts提取系统字体Times New Roman,使用scale_color_gradient修改颜色范围 windowsFonts(A=windowsFont('Times New Roman'))ggplot(iris,aes(Sepal.Length,Sepal.Width...
facet_grid()函数主要通过y~.或.~x或y~x格式输入分面变量,但无法指定行数或列数,其他设置与facet_wrap()一致,可参考上文: p+facet_grid(.~G)#横向排布 p+facet_grid(G~.)#纵向排布 p+facet_grid(group~G) #两个变量,前面的参数控制行分面,后面的参数控制列分面...
p <- ggplot(heightweight,aes(x=ageYear,y=heightIn))+geom_point() p+theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank()) # 通过使用panel.grid.major.x、panel.grid.major.y、panel.grid.minor.x、panel.grid.minor.y,只隐藏纵向或横向网格线 # 隐藏纵向网格线(与x轴...
plot_grid(p3, p4, p5, p6, p7, p8, labels = LETTERS[1:6], nrow = 3) 对于分面图形,也是一样的 p2 <- p1 + facet_grid(vs ~ am) p3 <- p2 + theme_linedraw() p4 <- p2 + theme_light() p5 <- p2 + theme_dark()
p1<-p+facet_grid(group~.,scale="free")## 分面的结果 p1 Figure 2: 分面后的柱状图 但是,这时候我们会发现有一些文本注释很长,这个时候我们想把文本缩短怎么办??? 这个问题其实很简单,用stringr包的str_wrap来完成文本自动换行就行了。这里使用barplot来演示一下: - - 引自ggplot2画图,文本太长了怎么...
( size = 12, color = "red", face = "bold.italic" ), # 这里设置x轴方向的字体类型, strip.text.y = element_text( size = 12, color = "red", face = "bold.italic" ) # 这里设置y轴方向的字体类型, ) # 修改字体和颜色 p + facet_grid(dose ~ supp)+ theme( strip.background = ...
相比facet_wrap,facet_grid 用～ 取代了 ncol、nrow magins 用于分面的包含每个变量元素所有数据的数据组。 如qplot(carat,price,data=diamonds,alpha=I(0.2)+facet_grid(color~cut,margins = TRUE)) space参数 配合scales使用,如果是fixed(默认) ,则所有小图的大小一致,如果为free,free_x,free_y ,小图的大...
facet_grid() facet_wrap() 针对上面图形进行分面: p+facet_grid(supp~.): 按变量supp进行竖直方向分面 p+facet_grid(.~supp): 按变量supp进行水平方向分面 p+facet_wrap(dose~supp):按双变量supp和dose进行水平竖直方向分面 p+facet_wrap(~fl): 将分成的面板边靠边置于一个矩形框内 ...