r - "log"使用 plot() 时不是图形参数错误

Question

我正在尝试在 Shiny 的应用程序中的一个图中绘制两个带有对数 x 轴的直方图。这是引发错误的代码:

allGeneData <- read.csv('data/CoRN_data1.csv')

shinyServer(function(input, output) {

  igsAll <- allGeneData[allGeneData$Gene=="IGS",]
  igsClean <- igsAll[!is.na(igsAll$copies_indiv_fit_avg),]
  igsClean$copies_indiv_fit_avg <- igsClean$copies_indiv_fit_avg + 1
  xmax <- max(igsClean$copies_indiv_fit_avg)*1.1
  ylimits <- seq(0,10)

  varList <- levels(allGeneData$variety)

  selectedVar <- reactive({
    s <- igsClean[igsClean$variety==input$varietySelect,]
    sNumbs <- s$copies_indiv_fit_avg
    sHisto <- hist(sNumbs)
    return(sHisto)
  })
  remainder <- reactive({
    r <- igsClean[igsClean$variety!=input$varietySelect,]
    rNumbs <- r$copies_indiv_fit_avg
    rHisto <- hist(rNumbs)
    return(rHisto)
  })

  output$ggplotHisto2 <- renderPlot({
    plot(selectedVar(), col=rgb(0,1,1,.25), xlim=c(1,xmax), ylim=c(0,12), log="x")
    plot(remainder(), col=rgb(1,1,0,.25), xlim=c(1,xmax), ylim=c(0,12),add=T)
  })
})

这是错误:

Warning in run(timeoutMs) : "log" is not a graphical parameter

我阅读的大部分文档都说 log="x"是怎么做的。别人说是 logx=T .后者不会产生错误，但也不会使 x 轴对数。我已经在这个应用程序上敲了很多很多小时，任何帮助都将不胜感激!

Answer 1

当您指定 plot(..., log = 'x') 时，R 在(自然)对数刻度上绘制 x 轴，但您在 x 轴上看到的值是未记录的值。

要查看上述陈述如何正确的示例，请考虑以下示例:

y = rnorm(3) #Generate 3 random numbers
x = c(2.7,2.7^2,2.7^3) #Approximately equal to 1, 2, 3 on log scale
plot(y~log(x), bg = 'blue', pch =21) #Plot by directly taking log x
par(new=T) #Used to overlay plot
plot(y~x, col ='red', log='x', xaxt = 'n', pch = 2, xlab = "") #Another way to plot where x is on log scale.          
#Remove x axis labels. 

#The two plots are identical