在针对“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

使用B b; b.addObject(2, 5, "test"); // construct the element directly into the vector without constructing A 指定标签。因为他们很长，我也改变了他们的角度和位置。

scale_x_continuous

Answer 2

NP <- read.table(text='
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
', header=T)

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