форматирование экспоненциального графика оси X в R как ^ x?

Question

Я сгенерировал этот график в R со странным форматом чисел по оси X: введите описание изображения здесь Я хочу, чтобы на оси абсцисс были цифры в формате (топор) 2 ^ 6, 6 ^ 6, 10 ^ 6. это упростит ось X для получения данных во всех точках. У вас есть предложения?

Вот мой код:

data=read.csv("my_file.csv",row.names = 1)
plot(genes~Prot,cex=1.5,data, function(x) 10^x, xlab="Proteome 
size(codons)",ylim=c(0,30), ylab="Genes in pathway")
abline(lm(prot~genes,data),lty=2, lwd=3,col="black")

Answer 1

Используйте xaxt = 'n' в качестве аргумента для plot, чтобы отключить маркировку по оси X.Затем используйте функцию Axis, чтобы установить метки и метку, как требуется.

# Generating some data
power <- seq(1, 6, length.out = 20) 
Prot = 10^power
genes <- runif(20, min = 5, max = 30)

# plotting
plot(x= Prot, y= genes, cex=1.5, xlab="Proteome size(codons)", ylab="Genes in pathway", xaxt = 'n', log = 'xy')
Axis(at = c(2^6, 6^6, 10^6), side = 1, labels = c('2^6', '6^6', '10^6'), las = 1)