r - 根据 "as.numeric"因子绘制数值向量时更改轴标签

Question

在创建线性模型图后，我一直在寻找一种方法来以特定方式标记轴，但没有成功。

我的数据是

    Sample                  ActB
    Pre-Amp_Ctrl cDNA       5.607907144
    Pre-Amp_Ctrl cDNA 10e-1 8.916634343
    Pre-Amp_Ctrl cDNA 10e-2 12.6501345
    Pre-Amp_Ctrl cDNA 10e-3 16.32385192
    Pre-Amp_Ctrl cDNA 10e-4 20.30327678
    Pre-Amp_Ctrl cDNA 10e-5 23.40471201

当我正常绘图时

    ggplot(NP, aes(x=NP$Sample, y=NP$actbct)) +
    geom_point()

我明白了:



样本被标记在刻度上的地方。

但是，当我尝试添加趋势线时，我必须将因子向量更改为“as.numeric”，并且会丢失标记的刻度。

    ggplot(NP, aes(x=as.numeric(NP$Sample), y=NP$actbct)) +
    geom_point() +
    geom_smooth(method= "lm", color = "red")

并获取此图像:



有什么可能的方法可以在保持趋势线的同时保持样本标记？我知道我可以在 Excel 中做到这一点，但也能在 R 中做到这一点会很棒。

Answer 1

使用 scale_x_continuous指定标签。由于它们很长，我也改变了它们的角度和位置。

NP <- read.csv("tmp", header = T)

library(ggplot2)
ggplot(NP, aes(as.numeric(Sample), ActB)) +
    geom_point() +
    geom_smooth(method = "lm", color = "red") +
    scale_x_continuous(breaks = 1:nrow(NP), labels = NP$Sample) +
    labs(x = "Sample") +
    theme(axis.text.x = element_text(angle = 70, hjust = 1))