> plot_grid(p1, p2, ncol = 2, align = "h", axis = "tb") Error in `geom_boxplot()`: ! Problem while computing aesthetics. ℹ Error occurred in the 1st layer. Caused by error in `FUN()`: ! object 'Sepal.Length' not found Run `rlang::last_trace()` to see where the error occurred.

这个错误提示说找不到 `Sepal.Length` 这个对象，很可能是因为 `Sepal.Length` 这个变量名没有定义或者拼写错误。请检查一下代码中是否有定义这个变量，或者确认变量名是否正确。如果问题仍然存在，可以使用 `rlang::last_trace()` 命令来查看错误的具体位置和原因。

相关问题

绘制观测值距离图 library(factoextra) fviz_dist(dist_obs, gradient = list(low = "#00AFBB", mid = "white", high = "#FC4E07")) # 绘制变量距离图 fviz_dist(dist_var, gradient = list(low = "#00AFBB", mid = "white", high = "#FC4E07")) 在外侧再加上箱线图，代码怎么写

你可以使用ggplot2库来画箱线图，并把它加到观测值距离图上。以下是代码示例：

library(ggplot2)
library(factoextra)

# 生成数据
data("iris")
iris <- iris[, 1:4]

# 计算距离
dist_obs <- dist(iris)
dist_var <- get_dist(iris, method = "cosine")

# 绘制观测值距离图
p1 <- fviz_dist(dist_obs, gradient = list(low = "#00AFBB", mid = "white", high = "#FC4E07"))

# 绘制箱线图
p2 <- ggplot(iris, aes(x = "", y = Sepal.Length)) +
  geom_boxplot(width = 0.2) +
  coord_flip() +
  theme_void()

# 将两张图合并
library(cowplot)
plot_grid(p1, p2, ncol = 2, align = "h", axis = "tb")

在这段代码中，我们首先加载了ggplot2和factoextra库。然后，我们使用iris数据集计算了观测值和变量之间的距离。接下来，我们使用`fviz_dist()`函数绘制了观测值距离图。然后，我们使用ggplot2库中的`geom_boxplot()`函数绘制了箱线图，并使用`coord_flip()`函数将坐标轴翻转。最后，我们使用cowplot库中的`plot_grid()`函数将两张图合并到一起。