r - 如何使用ggplot2在条形图的条形上方添加边缘地毯

是否可以在酒吧上方添加边缘地毯线？使用下面的数据集，如何在巴西上方添加 4 条地毯线，在加拿大上方添加 8 条地毯线，等等。

ctryfees <- feesctry %>% group_by(country) %>% summarise(total = sum(fees))

library(ggplot2)
library(ggthemes)

ggplot(ctryfees, aes(x = country, y = total)) +
  geom_bar(stat = "identity") + theme_tufte() +
  ggtitle("Fees Paid Law Firms per Country\nNumber of Firms Paid\n") +
  labs(x = "", y = "") +
  scale_y_continuous(label = dollar.format) +
  geom_rug(data = feesctry, mapping = aes(x = country, y = firms), sides = "top")

该代码在 scale_y_continuous 行之后不起作用，因为它抛出此错误:Error: Discrete value supplied to continuous scale

> dput(feesctry)
structure(list(country = structure(c(1L, 1L, 1L, 1L, 2L, 3L,
4L, 4L, 5L, 5L, 6L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 6L, 6L, 3L, 3L,
3L, 3L), .Label = c("Brazil", "Canada", "China", "France", "Germany",
"UK"), class = "factor"), firms = structure(c(1L, 2L, 3L, 4L,
5L, 13L, 18L, 19L, 20L, 21L, 22L, 6L, 7L, 8L, 9L, 10L, 11L, 12L,
23L, 24L, 14L, 15L, 16L, 17L), .Label = c("brazil1", "brazil2",
"brazil3", "brazil4", "can1", "can2", "can3", "can4", "can5",
"can6", "can7", "can8", "china1", "china2", "china3", "china4",
"china5", "france1", "france2", "german1", "german2", "uk1",
"uk2", "uk3"), class = "factor"), fees = c(80000, 80000, 80000,
80000, 1e+05, 5e+05, 2e+05, 2e+05, 1e+05, 1e+05, 5e+05, 1e+05,
1e+05, 1e+05, 1e+05, 1e+05, 1e+05, 1e+05, 5e+05, 5e+05, 5e+05,
5e+05, 5e+05, 5e+05)), .Names = c("country", "firms", "fees"), row.names = c(NA,
-24L), class = "data.frame")

最佳答案

从

p <-
  ggplot(ctryfees, aes(x = country, y = total)) +
  geom_bar(stat = "identity") + theme_tufte() +
  ggtitle("Fees Paid Law Firms per Country\nNumber of Firms Paid\n") +
  labs(x = "", y = "") +
  scale_y_continuous(label = dollar_format())

你可以试试

p + geom_rug(data = transform(feesctry, id = as.numeric(country)),
             mapping = aes(x = ave(id, id, FUN = function(x)
                                                   x + scale(seq_along(x), scale = 50)),
                           y = 1),
             sides = "top")

要不就

p + geom_rug(data = feesctry,
             mapping = aes(x = jitter(as.numeric(country)),
                           y = 1),
             sides = "top")

关于r - 如何使用ggplot2在条形图的条形上方添加边缘地毯，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/30287334/