我觉得这应该是显而易见的...我所要做的就是把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相关问答推荐

在嵌套列表中从第一个列表中选择第一个元素,从第二个列表中选择第二个元素,依此类推

提取列包含 NA 值的单元格并根据结果创建一个新列

如果行中至少有一个 Na,则使行 Na

如何根据先前的正方形递归创建正方形?

tidyverse:数据转换,gather()

如何在 R 中使用矢量化来根据条件更改 DF 值?

在 R 中的数据框中创建一个包含 1 列值总和的新行

按其他日期列中的信息填充缺失的变量 (R)

从基本 R 图转换为 ggplot

将汇总表添加到分面网格箱线图

比较两个矩阵,保持一个矩阵中的值在另一个矩阵中为 TRUE

在R中,在数字字符串的正确位置添加逗号

我如何知道模型是否在 lme4 中收敛或未能在 r 中出现警告消息?

如何在 r 中建立不对称相关性?

可以使 data.table 输出看起来更像 tibble 输出吗? (10 行,仅打印适合屏幕的列)

如何将第二个变量添加到直方图 ggplot 并在当前直方图上绘制,从第二个变量添加密度曲线

使用箭头分配函数作为 R purrr map2

如何更有效地使用 map_dfr() 过滤数据集?

判断线性混合效应模型的正态假设

如何在带有 apply 或 map 的列表上使用 case_when()