我觉得这应该是显而易见的...我所要做的就是把x轴从图表的底部移除,然后把它添加到顶部.

这是一个可复制的例子.数据加上代码生成以下图表:

library(reshape2)
library(ggplot2)

data(mtcars)
dat <- with(mtcars, data.frame(mpg, cyl, disp, hp, wt, gear))
cor.matrix <- round(cor(dat, use = "pairwise.complete.obs", method = "spearman"), digits = 2)
diag(cor.matrix)<-NA

cor.dat <- melt(cor.matrix)
cor.dat <- data.frame(cor.dat)
cor.dat <- cor.dat[complete.cases(cor.dat),]


ggplot(cor.dat, aes(Var2, Var1, fill = value)) + 
  geom_tile(colour="gray90", size=1.5, stat="identity") + 
  geom_text(data=cor.dat, aes(Var2, Var1, label = value), color="black", size=rel(4.5)) +
  scale_fill_gradient(low = "white", high = "dodgerblue", space = "Lab", na.value = "gray90", guide = "colourbar") +
  scale_x_discrete(expand = c(0, 0)) +
  scale_y_discrete(expand = c(0, 0)) +
  xlab("") + 
  ylab("") +
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_rect(fill=NA,color="gray90", size=0.5, linetype="solid"),
        axis.line = element_blank(),
        axis.ticks = element_blank(),
        panel.background = element_rect(fill="gray90"),
        plot.background = element_rect(fill="gray90"),
        legend.position = "none", 
        axis.text = element_text(color="black", size=14) )

在此处输入图像描述

但我试图产生的是——这似乎应该是显而易见的(例如,在base-R中很容易做到),但我还没有在ggplot2中找到我想要的.

在此处输入图像描述

推荐答案

通过添加,可以将x轴标签移动到顶部

scale_x_discrete(position = "top") 

R相关问答推荐

为什么我的基准测试会随着样本量的增加而出现一些波动?

使用较长的查询提取具有部分匹配的列表中的较短目标,

以更少间隔的较小表中的聚合离散频率表

如何使用tryCatch执行语句并忽略警告?

2个Rscript.exe可执行文件有什么区别?

无法定义沿边轨迹的 colored颜色 渐变(与值无关)

更改STAT_VALLES/STAT_PEAKS中的箭头线宽/大小

如何将网站图像添加到带有极坐标的面包裹条形图?

QY数据的处理:如何定义QY因素的水平

R如何计算现有行的总和以添加新的数据行

根据另一列中的值和条件查找新列的值

'使用`purrr::pwalk`从嵌套的嵌套框架中的列表列保存ggplots时出现未使用的参数错误

将数据集旋转到长格式,用于遵循特定名称模式的所有变量对

R中治疗序列的相对时间指数

判断函数未加载R中的库

在使用SliderInput In Shiny(R)设置输入数据的子集时,保留一些情节痕迹

位置_道奇在geom_point图中不躲避

如何根据顺序/序列从数据框中排除值

如何系统地根据柱的位置对柱进行操作?

根据另两列的值替换值