欢乐曲线上的x轴显示不正确的值

Question

我是在R中制作欢乐曲目的新手。下面是我用一些模拟数据绘制的曲线。我很困惑，但因为我的数据变量foo的不包含负值，但由此产生的剧情将表明这样：

library(ggjoy) 

p <- ggplot(results, aes(foo, bar)) + geom_joy() 

的数据是

results <- structure(list(foo = c(462.834004209936, 460.834004209936, 73.0340042099357, 
106.134004209936, 165.634004209936, 200.134004209936, 490.434004209936, 
157.334004209936, 460.834004209936, 131.434004209936, 269.934004209936, 
457.534004209936, 459.634004209936, 475.534004209936, 180.034004209936, 
142.134004209936, 294.734004209936, 419.534004209936, 279.834004209936, 
280.734004209936, 448.034004209936, 206.334004209936, 283.134004209936, 
243.034004209936, 530.334004209936, 396.934004209936, 49.8340042099357, 
136.134004209936, 210.234004209936, 59.0340042099357, 269.834004209936, 
123.034004209936, 385.434004209936, 78.7340042099357, 226.434004209936, 
391.034004209936, 219.434004209936, 338.134004209936, 87.0340042099357, 
434.234004209936, 123.034004209936, 75.7340042099357, 247.234004209936, 
192.334004209936, 146.234004209936, 259.334004209936, 72.5340042099357, 
110.934004209936, 287.134004209936, 122.634004209936, 197.834004209936, 
379.334004209936), bar = structure(c(3L, 8L, 1L, 5L, 10L, 8L, 
7L, 9L, 8L, 10L, 9L, 8L, 8L, 9L, 2L, 3L, 5L, 6L, 9L, 1L, 3L, 
5L, 6L, 8L, 7L, 9L, 2L, 3L, 2L, 2L, 3L, 1L, 5L, 10L, 4L, 7L, 
5L, 6L, 8L, 8L, 1L, 8L, 8L, 9L, 5L, 6L, 5L, 6L, 7L, 9L, 1L, 9L 
), .Label = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10" 
), class = "factor")), .Names = c("foo", "bar"), row.names = c(NA, 
-52L), class = "data.frame") 

我认为它可能与stat：

统计信息

与geom_joy一起使用的默认stat是stat_joy。但是，它可能不会完全按照您希望的方式执行，而且还有其他可用于您的各个应用程序的统计信息。

首先，stat_joy根据整个数据一次估计出密度估计的数据范围和带宽，而不是从每个单独的数据组中估计。这种选择使得欢乐曲图看起来更加均匀，但是在某些情况下，密度估计可能与您从geom_density或stat_density得到的结果完全不同。这个问题可以通过在geom_joy中使用stat_density来改变。这工作得很好，我们只需要确保我们将计算出的密度映射到高度美学。

Answer 1

函数geom_joy()估计不受数据的最小/最大值限制的密度函数。由于您只提供了几个数据点，因此密度范围太宽。你可以在这里看到：

ggplot(results, aes(foo, bar)) + 
geom_point() + 
geom_joy(alpha=.3)