r - 复制 ggplot 的离散 x 轴

Question

这个问题在这里已经有了答案:





Duplicating (and modifying) discrete axis in ggplot2

(1 个回答)


3年前关闭。




嗨，这类似于另一篇文章，但是我想在这里做的是顶部和底部的重复 x 轴，而不仅仅是将其移动到顶部。我尝试使用 scale_x_discrete(sec.axis = dup_axis())但这没有用。下面是我的工作示例

d<- data.frame (pid=c("d","b","c"), type=c("rna","rna","rna"), value = c(1,2,3) )
d2 <- data.frame (pid=c("d","b","c"), type=c("dna","dna","dna"), value = c(10,20,30) )
df <- rbind (d,d2)

ggplot(df, aes(y=pid, x=type  ) ) + 
  geom_tile(aes(fill = value),colour = "white") + 
  scale_fill_gradient(low = "white",high = "steelblue") +
  scale_x_discrete(position = "top") 
  # this failed: scale_x_discrete(sec.axis = dup_axis())

该图目前看起来像这样，但我希望 x 显示在顶部和底部。

Answer 1

scale_x_discrete函数没有第二个轴参数，但 scale_x_continuous做。所以编辑type变量为数字变量，然后更改标签将起作用:

d<- data.frame (pid=c("d","b","c"), type=1, value = c(1,2,3) )
d2 <- data.frame (pid=c("d","b","c"), type= 2, value = c(10,20,30) )
df <- rbind (d,d2)

ggplot(df, aes(y=pid, x=type)) + 
  geom_tile(aes(fill = value),colour = "white") + 
  scale_fill_gradient(low = "white",high = "steelblue") +
  scale_x_continuous(breaks = 1:2,
                      labels = c("rna", "dna"),
                      sec.axis = dup_axis())