Question

这是我的数据示例。我有几个由sensor（Var2）分解的不同传感器数据（Var1）。这是可复制的数据集。

var.sens1 <- structure(list(Var1 = structure(c(9L, 9L, 9L, 9L, 9L, 1L, 2L, 
                                           9L, 9L), 
                                         .Label = c("bathymetry", "current", "deep scattering layer", 
                                                    "frontal data", "imagery", "ocean productivity", 
                                                    "salinity",  "sea surface height", "sea surface temperature",
                                                    "vessel", "wind"), 
                                         class = "factor"), 
                        Var2 = structure(c(1L, 2L, 3L, 4L, 7L, 8L, 8L, 8L, 10L), 
                                         .Label = c("AMSR-E", "AVHRR", "CZCS", "Imager", 
                                                    "IRS-P4 OCM", "MERIS", "MODIS", "not specified", 
                                                    "OCI", "SeaWiFS", 
                                                    "SeaWinds"), class = "factor"), 
                        Freq = c(4L, 37L, 1L, 3L, 20L, 4L, 20L, 26L, 2L)), 
                   row.names = c(9L, 20L, 31L, 42L, 75L, 78L,79L, 86L, 108L), 
                   class = "data.frame")

然后，我使用此代码对数据进行分面（而不是堆叠的条形图）。

vp <- ggplot(var.sens1, aes(x=Var2, y=Freq, fill=Var1, label=Freq)) + 
  geom_bar(stat="identity")

vp + facet_wrap( ~ Var1, ncol=3, scales="free_y") +
  coord_flip() +
  theme_light()+
  theme(legend.position="none") +
  xlab("Sensor") + ylab("Frequency")

我使用scales_y = free来删除图表中不需要的空间。并获得以下图。

但是，条宽是不同的大小。有谁知道如何在小面包裹时固定条宽度？固定geom_bar中的barwidth似乎无效。使用geom_col和position_dodge2并按照建议的here进行保存都不会。请参见下面的代码和图像。

vp <- ggplot(var.sens1, aes(x=Var2, y=Freq, fill=Var1, label=Freq)) + 
  geom_col(position = "dodge")

vp + 
facet_grid(~Var1, scales = "free_y")+
coord_flip() +
theme_light()+
theme(legend.position="none") +
xlab("Sensor") + ylab("Frequency")

我宁愿在facet网格上使用facet_wrap，所以我没有一系列长的绘图（我需要在数据集中绘制多个变量，而不仅仅是显示的三个变量）。

Answer 1

使用geom_col（position = position_dodge2（preserve =“ single”））

vp <- ggplot(var.sens1, aes(x=Var2, y=Freq, fill=Var1, label=Freq)) + 
  geom_col(position = position_dodge2(preserve = "single"))

vp + 
  facet_grid(~Var1, scales = "free_y")+
  coord_flip() +
  theme_light()+
  theme(legend.position="none") +
  xlab("Sensor") + ylab("Frequency")

enter image description here

修复刻面包裹的条形图ggplot2中的条形宽度

1 个答案: