小编Jad*_*abu的帖子

我的功能有问题grid.arrange。我想绘制一个数据集的箱线图，并在下面绘制一个带有最小值、平均值、中值和最大值的数据表。我收到以下错误消息：nrow * ncol >= n is not TRUE。这是我的代码：

df.plot <- ggplot((Boxplot_Flaechenpotential_2_2),     aes(x=GMDKLASSE,y=Flaeche)) + 
  ylab("Flächenpotential (1000m2)") + xlab(" ") +
  geom_boxplot() + theme_bw() +
  ggtitle(" ") +
  theme(plot.title = element_text(lineheight=.8, face="bold"),
    axis.line = element_line(colour = "black"),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.border = element_blank(),
    panel.background = element_blank())


lab.df<-data.frame(lab1=c("Kleine Gemeinde","Mittlere Gemeinde","Grosse Gemeinde"),
               lab2=c("1","2","38"),
               lab3=c("55","78","176"),
               lab4=c("67","96","233"),
               lab5=c("214","443","1042"))

lab.df$lab1 <- factor(lab.df$lab1, levels=lab.df$lab1)
lab.df$lab2 <- factor(lab.df$lab2, levels=lab.df$lab2)
lab.df$lab3 <- factor(lab.df$lab3, levels=lab.df$lab3)
lab.df$lab4 <- factor(lab.df$lab4, levels=lab.df$lab4)
lab.df$lab5 <- factor(lab.df$lab5, levels=lab.df$lab5)

df.table1 <- ggplot(lab.df, …

我已经绘制了分组的箱形图,现在我想用白线代替标准的黑色中线,同时保持边框为另一种颜色.我正在按照Minimalist Boxplots网站上的说明进行操作,因为我非常喜欢他们的风格.

他们使用命令stat_summary(geom = "crossbar", width=0.65, fatten=0, color="white", fun.data = function(x){ return(c(y=median(x), ymin=median(x), ymax=median(x))) }).该命令适用于简单的箱形图:

但是现在我正在尝试在我的分组箱图上使用它,它不再工作了(缺少白色中线):

这是我复制数据的代码:

Data <- data.frame(
  W = sample(1:100),
  M = sample(1:100),
  A = sample(1:100),
  O = sample(1:100),
  Type = sample(c("1", "2", "3", "4", "5")))

我的剧本:

Data_Boxplot <- melt(Data,id.vars='Type', measure.vars=c('W','M','A', 'O'))
Boxplots <- ggplot(Data_Boxplot, aes(Type, value, group=variable)) +
  geom_boxplot(outlier.colour = NULL, aes(color=variable, fill=variable)) + 
  stat_summary(geom = "crossbar", width=0.65, fatten=0, color="white", 
               fun.data = function(x){c(y=median(x), ymin=median(x), ymax=median(x))})
Boxplots

我需要改变什么？非常感谢您的帮助.