小编Use*_*268的帖子

假设我们有一个向量a <- c(1,2,3,4,1,5,6,1,7),我想要一个函数来返回每个值的重复次数.我想得到的结果是c(1,1,1,1,2,1,1,3,1)- 因为数字1重复了3次.

第二个问题 - 如何获得一个可以返回c(1,0,0,0,2,0,0,3,0)上述值的函数？所以它只计算重复的元素而其他所有元素都会得到0？

谢谢!

如何更改美学层的顺序？这是和示例

dat <- tibble (acc = rep(c(0,1), 200),
               rt = rnorm(400, 0.5, 0.1))

dat %>% ggplot(aes(x = rt, fill = factor(acc))) + 
  geom_density(aes(y= ..count..*0.03), alpha = 0.6)

此代码绘制此图像。此处，绿色 (1) 层位于红色 (0) 层上方。如何将红色 (0) 层放在绿色 (1) 之上？

我试过了

dat %>% ggplot(aes(x = rt, fill = factor(acc, levels = c(1,0)))) + 
  geom_density(aes(y= ..count..*0.03), alpha = 0.6)

但这会导致颜色和位置的切换！