如何根据数据属性的平均值向我的 xyplot 添加一条线？

Question

我已经创建了我想要得到的基础图我只是不知道如何根据 USArrests 数据集中谋杀属性的平均值向图中添加一条线。在那之后，我还需要根据州名是在线上方还是下方来给州名上色。

我尝试添加一个带有 Murder 属性的 abline 作为输入，但这条线出现在我的图表之外，不确定我做错了什么。

library(lattice)
textPlot <- function()
{
  data <- cbind(rownames(USArrests), USArrests)
  names(data) <- c("State", names(data)[2:5])

averageM <- mean(USArrests$Murder)

         xyplot(Murder~UrbanPop, data, 
         groups=State, panel=drawText, 
         main="Murder vs. Urban Population")

}

drawText <- function(x,y,groups,...)
  {
    panel.text(x=x,y=y,label=groups,cex=y/10)
}

Answer 1

您的图表似乎显示了一条倾斜的回归线，而不是平均值的水平线。 Lattice 可以直接从 panel.lmline 的变量或 panel.abline 的回归模型（或常量）中添加 xyplot 中的回归线。需要做更多的工作来对高于或低于选定谋杀率的州进行分类。这是使用格子显示两种类型的回归线的一种方法。

# Load the lattice package, create data.frame with state names from USAarrests
  library(lattice)
  df <- data.frame(State = rownames(USArrests), USArrests)

# Determine regression and mean murder rate outside of xyplot()
# However, these operations don't have to be done outside of the lattice function
  fm <- lm(Murder ~ UrbanPop, df)
  averageM <- mean(USArrests$Murder)

# Add a variable to the data.frame indicating the classification
  df$type <- factor(ifelse(df$Murder < fm$fitted, "low", "high"))

# Plot via lattice with explicit panel() function
  xyplot(Murder ~ UrbanPop, data = df,
    panel = function(x, y, ...) {
      panel.abline(fm, col = "red", lwd = 2)
#     panel.lmline(x, y, col = "red", lwd = 2) # This would do the same
      panel.abline(h = averageM, col = "red", lty = 2, lwd = 2)
#     panel.abline(h = mean(y), col = "red", lty = 2, lwd = 2) # This would do the same
      panel.text(x, y, labels = df$State, cex = y/10, col = c(2,4)[df$type])
    }
  )

如何根据数据属性的平均值向我的 xyplot 添加一条线？

How can I add a line to my xyplot based upon the mean of an attribute of my data?

r

lattice