r - 根据频率设置 geom_line 的粗细(如 geom_count)

Question

我想将 geom_line 的粗细设置为沿该路径的数据的比例，与 geom_count 设置点大小的方式相同在这一点上重叠的数据比例，或者找到一个允许我这样做的函数。

如果我可以将其作为计数而不是比例来计算，我也会很高兴——两者都行。我附上了图表，灰色线条代表相同 ID 之间的连接(即不同类别的同一个人)，如果我可以设置线条的粗细，我可以显示最常见的连接路径。

我当前的代码是:

ggplot(dat, aes(x = Category, y = Metric, group = ID)) +
  geom_line(aes(group = ID), colour = "gray59") + 
  geom_count(aes(size = ..prop.., group = 1), colour = "gray59") + 
  scale_size_area(max_size = 5) +
  theme_bw() + 
  geom_smooth(method = "lm", se = F, colour = "black", 
              aes(group = 1), linetype = "dotdash") +
  xlab("Category") + 
  ylab("Metric") + 
  theme(text = element_text(size = 16))

这是结果图，点大小显示了该点重叠的数据比例，如果可能的话，我想对线宽做同样的事情:

到目前为止，我的搜索没有任何帮助，但也许我搜索的术语有误。任何帮助将不胜感激!

这是数据 - 不确定如何将其作为文件上传

dat <- structure(list(IDD = structure(c(1L, 1L, 1L, 1L, 3L, 3L, 4L, 
4L, 4L, 4L, 4L, 5L, 5L, 5L, 6L, 6L, 2L, 2L, 2L, 2L, 7L, 7L, 7L, 
8L, 8L, 8L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 11L, 11L, 12L, 
12L, 13L, 13L, 13L, 13L, 14L, 14L, 15L, 15L, 15L, 15L, 16L, 16L, 
16L, 16L, 17L, 17L, 18L, 18L, 18L, 18L, 19L, 19L, 20L, 20L, 21L, 
21L, 21L, 22L, 22L, 23L, 23L, 24L, 24L, 25L, 25L, 25L, 26L, 26L, 
26L, 26L, 27L, 27L, 28L, 28L, 29L, 29L, 29L, 30L, 30L, 30L, 31L, 
31L, 31L, 31L, 32L, 32L, 33L, 33L, 33L, 34L, 34L, 34L, 34L, 35L, 
35L, 36L, 36L, 36L, 37L, 37L, 37L, 37L, 38L, 38L, 38L, 39L, 39L, 
39L, 40L, 40L, 40L, 41L, 41L, 42L, 42L, 43L, 43L, 44L, 44L, 44L, 
44L, 45L, 45L, 45L, 46L, 46L, 46L, 47L, 47L, 47L, 48L, 48L, 49L, 
49L, 50L, 50L, 51L, 51L, 51L, 51L, 52L, 52L, 53L, 53L, 54L, 54L, 
55L, 55L, 56L, 56L, 57L, 57L, 57L, 58L, 58L, 59L, 59L, 59L, 59L
), .Label = c("ID005", "ID040", "ID128", "ID131", "ID133", "ID134", 
"ID147", "ID149", "ID166", "ID167", "ID175", "ID181", "ID191", 
"ID198", "ID213", "ID235", "ID254", "ID257", "ID259", "ID273", 
"ID279", "ID287", "ID292", "ID299", "ID300", "ID321", "ID334", 
"ID348", "ID349", "ID354", "ID359", "ID377", "ID379", "ID383", 
"ID390", "ID395", "ID409", "ID445", "ID467", "ID469", "ID482", 
"ID492", "ID496", "ID524", "ID526", "ID527", "ID534", "ID535", 
"ID538", "ID545", "ID564", "ID576", "ID578", "ID579", "ID600", 
"ID610", "ID622", "ID631", "ID728"), class = "factor"), Category = c(2L, 
4L, 5L, 5L, 2L, 4L, 1L, 3L, 3L, 4L, 4L, 2L, 4L, 5L, 5L, 5L, 2L, 
5L, 5L, 5L, 3L, 2L, 5L, 4L, 5L, 5L, 4L, 4L, 5L, 5L, 3L, 4L, 5L, 
5L, 2L, 4L, 2L, 5L, 3L, 4L, 5L, 5L, 4L, 5L, 3L, 4L, 5L, 5L, 3L, 
4L, 5L, 5L, 5L, 5L, 2L, 3L, 4L, 4L, 5L, 5L, 5L, 5L, 4L, 4L, 5L, 
5L, 5L, 3L, 4L, 5L, 5L, 4L, 5L, 5L, 1L, 3L, 4L, 4L, 3L, 5L, 3L, 
5L, 2L, 3L, 4L, 3L, 4L, 4L, 3L, 3L, 4L, 4L, 3L, 5L, 3L, 4L, 4L, 
3L, 3L, 4L, 5L, 2L, 3L, 2L, 3L, 4L, 2L, 2L, 3L, 4L, 4L, 5L, 5L, 
2L, 3L, 4L, 2L, 3L, 4L, 3L, 4L, 4L, 5L, 3L, 4L, 1L, 2L, 3L, 4L, 
1L, 3L, 4L, 1L, 3L, 4L, 1L, 3L, 4L, 3L, 4L, 3L, 3L, 2L, 3L, 2L, 
2L, 3L, 3L, 2L, 3L, 2L, 3L, 3L, 4L, 3L, 4L, 3L, 4L, 1L, 2L, 3L, 
2L, 3L, 1L, 3L, 4L, 4L), Metric = c(2, 2, 3.5, 4, 2, 1.5, 2, 
2, 3, 3, 2, 2, 2, 2, 3.5, 3.5, 2, 3, 3.5, 4, 2, 2, 3, 2, 3, 3, 
2, 3, 3, 2.5, 1.5, 3, 3.5, 4, 2, 2, 1.5, 2, 1.5, 2, 2, 2, 2.5, 
3, 2.5, 3.5, 3.5, 3.5, 1.5, 2, 2.5, 2.5, 3.5, 4, 2, 2, 1.5, 3, 
3.5, 3, 3, 3, 3.5, 2.5, 3, 3, 3, 2, 3, 2.5, 2.5, 2, 2, 2, 2, 
2, 2, 2, 2.5, 2.5, 2, 3, 2.5, 2, 2.5, 2, 2.5, 2.5, 2, 2, 2.5, 
3.5, 2, 2.5, 2.5, 2.5, 2.5, 2, 2, 2, 2.5, 2, 2, 1.5, 2, 2, 2.5, 
2, 2, 2.5, 2, 2, 2.5, 2.5, 2.5, 3, 2.5, 2.5, 2.5, 2, 2, 2.5, 
2.5, 2, 2, 2, 2, 1.5, 2, 1.5, 2, 2, 2, 1.5, 2, 2, 2.5, 2.5, 1.5, 
1.5, 2, 2.5, 2, 2, 2, 2, 2.5, 2, 1.5, 2, 2.5, 2, 1.5, 1.5, 1.5, 
2, 2, 2, 2, 2, 1.5, 2, 2.5, 2, 2, 2.5, 2.5)), .Names = c("IDD", 
"Category", "Metric"), class = "data.frame", row.names = c(NA, 
-167L))

Answer 1

我对如何缩放不同的线段感到有点困惑，但我能够在 dat 中创建一个比例变量，然后将其绘制为 geom_line() 的参数:

dat$thickness <- with(dat, ave(Category, Metric, FUN = prop.table))

ggplot(dat, aes(x = Category, y = Metric, group = ID)) +
  geom_line(aes(group = ID), colour = "gray59", size = dat$thickness) + 
  geom_count(aes(size = ..prop.., group = 1), colour = "gray59") + 
  scale_size_area(max_size = 5) +
  theme_bw() + 
  geom_smooth(method = "lm", se = F, colour = "black", 
              aes(group = 1), linetype = "dotdash") +
  xlab("Category") + 
  ylab("Metric") + 
  theme(text = element_text(size = 16))

产生这个图: