小编Jon*_*ley的帖子

我希望这个例子会很清楚。我想在中间条跨越“0”的地方堆叠条，因为它代表一个中性值。这与李克特量表一起使用。为了重现性，我使用了钻石数据集。

以下示例与我的用例非常接近，并说明了我将“好”或“正”数据按正确顺序排列的困难（因此中性最接近 0）。

这是我的代码：

require(tidyverse)

diamonds_new <- diamonds %>%
  mutate(quality = fct_recode(cut, "Very poor" = "Fair", "Poor" = "Good", "Neutral" = "Very Good", "Good" = "Premium", "Excellent" = "Ideal")) %>% 
  select(color, clarity, quality) %>% 
  group_by(color, clarity, quality) %>% count()

diamonds_bad <- 
  diamonds_new %>% filter(quality %in% c("Very poor", "Poor", "Neutral")) %>% 
  mutate(n = ifelse(quality == "Neutral", -n/2, -n))

diamonds_good <- 
  diamonds_new %>% filter(quality %in% c("Neutral", "Good", "Excellent")) %>% 
  mutate(n = ifelse(quality == "Neutral", n/2, n)) # %>% 
#  arrange(color, clarity, desc(quality)) …