首页 文章

R：多个数据帧列的分面ggplot条形图

提问于
浏览 次
1

我有以下数据框：

df = data.frame(ID=c(1,2,3), A=c(0,1,1), B=c(0,2,1), C=c(0,2,2))
df[df=="0"]<-NA;
df[df=="1"]<-"Less";
df[df=="2"]<-"Average";
df[df=="3"]<-"More";
# reset the id row again --- i know its lame, is there a better way?
df$ID = c(1:3);
# turn to factors
df$A = factor(df$A, levels = c("NA", "Less", "Average", "More"));
df$B = factor(df$B, levels = c("NA", "Less", "Average", "More"));
df$C = factor(df$C, levels = c("NA", "Less", "Average", "More"));

我相信这不是一个完美的实现，我愿意建议如何做得更好:)

How can I create a faceted bar diagram for A,B, and C using ggplot? 这个条形图随后将显示3个条形图（数据框的每列一个），每条条形图内部有4个条形图，分别为NA，Less，Average和More . 我不确定与???的部分？但希望下面的代码有助于......

ggplot(df$???, aes(value, fill=???)) + 
geom_bar(aes(y = (..count..)/totalNumber)) + facet_wrap(~???) + 
theme(
  axis.text.x = element_text(angle = 45, hjust = 1, face=2), 
  axis.text=element_text(size=12), axis.title=element_text(size=14,face="bold"),   
  panel.background = element_rect(fill = "white")
) +   
scale_fill_manual(values=c("blue4","steelblue2", "blue4","steelblue2",   
  "blue4","steelblue2")) + opts(legend.position = "none") +   
scale_y_continuous(breaks=seq(0, 1, 0.1), labels = percent_format()) + 
xlab("") + ylab("") + 
coord_flip();

提前致谢！

最好的，拉尔夫

r ggplot2

1 回答

  • 2

    您需要 melt 您的数据，即将其带入长格式：

    library("reshape2")
df.molten <- melt(df, id.vars="ID")
head(df.molten)
  ID variable   value
1  1        A    <NA>
2  2        A    Less
3  3        A    Less
4  1        B    <NA>
5  2        B Average
6  3        B    Less

ggplot( df.molten , aes( x = value )  )+ 
  geom_bar() +
  facet_wrap( "variable" )

    enter image description here

    编辑：

    关于未使用的因子水平 More ，您必须在熔化后再分配水平：

    df.molten$value <- factor( df.molten$value, levels = c("NA", "Less", "Average", "More") )

    即使你使用 melt 的参数 value.factor = TRUE ，未使用的因子水平在融化时会被丢弃 . 此外，您必须添加

    + scale_x_discrete( drop = FALSE )

    你的情节，如ggplot2 keep unused levels barplot所述：

    enter image description here

    回复于

相关问题