用ggplot循环

Question

我正在尝试创建一个for循环，以使用price变量显示所有数字特征。

我设法使其工作，但是唯一的问题是，当我使用xlab（）时，x轴标签要么显示名称，要么显示数字。

numeric_var <- names(house_train)[which(sapply(house_train, is.numeric))]
numeric_var

for (colname in house_train[numeric_var]) {
  plt <- ggplot(data = house_train, aes(colname, price)) +
    geom_point(color = "dodgerblue3") +
      theme_minimal() +
    scale_y_continuous(labels = function(x) format(x, scientific = FALSE)) + 
    scale_x_continuous(labels = function(x) format(x, scientific = FALSE)) + ylab('Price') + xlab(colname)
  print(plt)
}

如何在x轴上显示每个具有对应变量名称的图。