ggplot：如何废除字母顺序[重复]

Question

我在 R 中使用 ggplot2

这是我的数据集的样子：

| Value | Big_condition | little_condition |
|-------|---------------|------------------|
| 10    | a             | A                |
| 12    | a             | B                |
| 11    | a             | A                |
| 6     | b             | B                |
| 10    | b             | B                |
| 8     | b             | A                |
| 9     | c             | B                |

这是我的代码：

#Thanks Jordo82 for this part    
dataset <- data.frame(Value = c(10,12,11,6,10,8,9),
                      Big_condition = letters[c(1,1,1,2,2,2,3)],
                      little_condition = LETTERS[c(1,2,1,2,2,1,2)])

# My ggplot code
p <- ggplot(data=dataset, aes(x=dataset$little_condition , y=dataset$value)) + 
  geom_boxplot() + 
  ylim(0, 20) + 
  theme_classic() + 
  geom_dotplot(binaxis='y', stackdir='center', dotsize=0.2) + 
  facet_grid(cols=vars(dataset$big_condition))

这是我得到的：

我想颠倒“小”条件（B，A）的顺序，选择“大”条件的顺序（例如c，a，b，e，f，d） .

如何做到这一点？

谢谢！

（这与它无关，但我也在寻找一种方法来仅显示我的点的平均值，而不显示箱线图的其余部分）。

Answer 1

要更改图中的顺序，您必须重新排序因子。至于你的第二个问题，只绘制每个点的平均值，summarise 先绘制数据，然后使用geom_point 绘制。

library(tidyverse)

dataset <- data.frame(Value = c(10,12,11,6,10,8,9),
                      Big_condition = letters[c(1,1,1,2,2,2,3)],
                      little_condition = LETTERS[c(1,2,1,2,2,1,2)])

#calculate the average value for each combination of conditions
dataset_mean <- dataset %>% 
  group_by(Big_condition, little_condition) %>% 
  summarise(MeanValue = mean(Value))

dataset %>%
  #reorder the factors to control the order in which they are plotted
  mutate(Big_condition = factor(Big_condition, levels = c("c", "a", "b")),
         little_condition = factor(little_condition, levels = c("B", "A"))) %>% 
  #create the plot
  ggplot(aes(x=little_condition , y=Value)) + 
  #plot a point for all values
  geom_point() + 
  #plot a line for the mean of values
  geom_point(data = dataset_mean, aes(x=little_condition , y=MeanValue), 
            color = "red", size = 6, shape = 95) +
  ylim(0, 20) + 
  theme_classic() + 
  facet_grid(.~Big_condition)