Функция `Rug ()` в `ggplot2`

Question

Этот вопрос как-то связан с моим предыдущим вопросом, но с другой целью. У меня есть следующий код

x<-c(seq(1,20,1))
y<-runif(20)
rugp<-c(runif(50,0,20))
plot(x,y,type="b")
rug(rugp,col="red")

, который производит следующий график

Я хотел бы сделать то же самое, но с ggplot. Есть ли эквивалентная функция rug() в ggplot2? Я попробовал опцию geom_rug(), но она не работает, так как не позволяет мне добавлять свои собственные очки к ковру. Спасибо!

Answer 1

Как указывает @csgroen, geom_rug является эквивалентом функции rug.

Однако ваш вектор rug имеет длину, отличную от x и y, поэтому вам нужно указать передать несколько аргументов в aes, чтобы получить ту же фигуру, что и в base r plot:

df1 <- data.frame(x, y)
df_rug <- data.frame(rugp)

library(ggplot2)
ggplot(df1, aes(x = x, y = y))+
  geom_point()+
  geom_line()+
  geom_rug(data = df_rug, aes(x = rugp, y = Inf), color = "red", sides = "b")

Отвечает ли он на ваш вопрос?

Answer 2

Я просто делаю несколько более простой функциональный ответ:

ggplot() +
    geom_line(aes(x,y)) +
    geom_rug(aes(x = rugp), color = "red")

Мне кажется, нет необходимости создавать стол для коврика.