更改ggplot2中小提琴图的x位置

Question

我试图使用x中的连续变量创建小提琴图。我目前的x值为0、3、5、8。当我将它们绘制为小提琴时，它们之间的间距相等。有没有办法迫使小提琴的位置基本在0、3、5、8？

我提供了一些示例数据和我实际上试图运行的行。

     condition movedur
 [1,]         5   0.935
 [2,]         0   1.635
 [3,]         3   0.905
 [4,]         8   0.875
 [5,]         3   1.060
 [6,]         8   1.110
 [7,]         3   1.830
 [8,]         5   1.060
 [9,]         5   1.385
[10,]         5   1.560
[11,]         0   1.335
[12,]         3   0.880
[13,]         0   1.030
[14,]         8   1.300
[15,]         3   1.230
[16,]         3   1.210
[17,]         5   1.710
[18,]         3   1.000
[19,]         0   1.365
[20,]         0   1.000

ggplot(a, aes(x = condition, y = movedur, fill = condition)) +
geom_violin()

运行完整的代码时，我得到下面的图像。但是x轴的间距是相等的，而不是被值隔开。

Answer 1

这是因为小提琴图旨在用于x轴上的分类数据，因此它只是将condition的不同值视为类别，而不是连续轴上的值。为了获得理想的结果，您可以使用complete插入与其他轴值相对应的缺失值，如下所示。请注意，您需要插入factor调用才能使ggplot2使用离散的fill标度。

library(tidyverse)
tbl <- structure(list(condition = c(5L, 0L, 3L, 8L, 3L, 8L, 3L, 5L, 5L, 5L, 0L, 3L, 0L, 8L, 3L, 3L, 5L, 3L, 0L, 0L), movedur = c(0.935, 1.635, 0.905, 0.875, 1.06, 1.11, 1.83, 1.06, 1.385, 1.56, 1.335, 0.88, 1.03, 1.3, 1.23, 1.21, 1.71, 1, 1.365, 1)), row.names = c(NA, -20L), class = c("tbl_df", "tbl", "data.frame"), spec = structure(list(cols = list(condition = structure(list(), class = c("collector_integer", "collector")), movedur = structure(list(), class = c("collector_double", "collector"))), default = structure(list(), class = c("collector_guess", "collector"))), class = "col_spec"))

tbl %>%
  complete(condition = 0:8) %>%
  ggplot() +
  geom_violin(aes(x = condition, y = movedur, fill = factor(condition)))
#> Warning: Removed 5 rows containing non-finite values (stat_ydensity).

由reprex package（v0.2.0）于2018-07-02创建。

Answer 2

如果将condition变量保留为x轴的整数/数字，但将其用作fill的因数，则可以获得所需的图。

请注意，您提供的数据集示例已经具有condition作为整数，但是如果它是一个因数并且想要转换它，则可以这样做

a$condition = as.numeric(as.character(a$condition))

我在breaks中添加了scale_x_continuous()，以使休息看起来不错。

ggplot(a, aes(x = condition, y = movedur, fill = factor(condition))) +
     geom_violin() +
     scale_x_continuous(breaks = c(0, 3, 5, 8) )