如何在R的ggplot2中更改Facet标题的颜色?
要更改R中ggplot2中facet标题的颜色,我们可以使用带有`strip.text.x`参数的`theme`函数。
例如,如果我们有一个名为df的数据框,它包含三列,例如X、Y和F,其中F是一个因子列,那么我们可以使用下面提到的命令为F中不同值的X和Y之间创建分面散点图,并使分面标题具有不同的颜色:
ggplot(df,aes(X,Y))+geom_point()+facet_wrap(~F)+theme(strip.text.x=element_text(colour="red"))
示例
以下代码片段创建了一个示例数据框:
Price<-sample(1:10,20,replace=TRUE) Demand<-sample(50:100,20) Region<-sample(c("Plane","Hill"),20,replace=TRUE) df<-data.frame(Price,Demand,Region) df
创建了以下数据框:
Price Demand Region 1 3 62 Plane 2 4 78 Plane 3 5 75 Hill 4 10 64 Hill 5 2 54 Plane 6 1 58 Plane 7 3 81 Plane 8 6 91 Plane 9 4 50 Plane 10 5 76 Plane 11 1 63 Hill 12 9 72 Hill 13 9 93 Plane 14 3 88 Plane 15 10 84 Hill 16 1 89 Plane 17 2 82 Plane 18 6 55 Plane 19 7 98 Hill 20 4 67 Hill
要在上面创建的数据框上基于区域创建需求和价格之间的散点图,并使用分面,请将以下代码添加到上面的代码片段中:
Price<-sample(1:10,20,replace=TRUE) Demand<-sample(50:100,20) Region<-sample(c("Plane","Hill"),20,replace=TRUE) df<-data.frame(Price,Demand,Region) library(ggplot2) ggplot(df,aes(Demand,Price))+geom_point()+facet_wrap(~Region)
输出
如果您将上面给出的所有代码片段作为一个程序执行,它将生成以下输出:
要在上面创建的数据框上基于区域创建需求和价格之间的散点图,并使用蓝色分面,请将以下代码添加到上面的代码片段中:
Price<-sample(1:10,20,replace=TRUE) Demand<-sample(50:100,20) Region<-sample(c("Plane","Hill"),20,replace=TRUE) df<-data.frame(Price,Demand,Region) library(ggplot2) ggplot(df,aes(Demand,Price))+geom_point()+facet_wrap(~Region)+theme(strip.text.x=element_text(colour="blue"))
输出
如果您将上面给出的所有代码片段作为一个程序执行,它将生成以下输出:
广告