# 绘制观测值距离图 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 和 cowplot 包来实现在距离图外加上箱线图的效果。以下是示例代码：

library(ggplot2)
library(cowplot)
library(reshape2)

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

# 绘制变量距离图
p2 <- fviz_dist(dist_var, gradient = list(low = "#00AFBB", mid = "white", high = "#FC4E07"))

# 读取数据
data(mtcars)
df <- melt(mtcars, id.vars = "am")

# 绘制箱线图
p3 <- ggplot(df, aes(x = variable, y = value)) +
  geom_boxplot() +
  facet_wrap(~ am, nrow = 1) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

# 将距离图和箱线图组合在一起
plot_grid(p1, p3, p2, nrow = 1, align = "h", axis = "tb")

这个示例代码中，我们使用了 `ggplot2` 中的 `geom_boxplot()` 函数绘制箱线图，并使用 `cowplot` 包中的 `plot_grid()` 函数将距离图和箱线图组合在一起。注意，在组合时，我们设置了 `nrow = 1` 表示将距离图和箱线图放在同一行，并使用 `align = "h"` 表示将它们水平对齐。最后，我们还设置了 `axis = "tb"` 表示将箱线图的 y 轴和距离图的 x 轴对齐。