我有一个类似下面的数据框。
```R
sakubun<-read.csv("https://www.iwanami.co.jp/files/moreinfo/0298960/sakubun259f.csv",
                  row.names=1, 
                  fileEncoding = 'cp932')
sakubunp<-sakubun/rowSums(sakubun)

d.method <- c("euclidean", "maximum", "manhattan", "canberra", "binary", "minkowski")
c.method <- c("ward.D", "ward.D2", "single", "complete", "average", "mcquitty", "median", "centroid")
result_list <- list()
for (i in 1:length(d.method)) {
  for (j in 1:length(c.method)) {
    cl_plot <- hclust(dist(sakubunp[, -32], method = d.method[i]), method = c.method[j]) %>% 
      stats::as.dendrogram() %>% 
      dendextend::as.ggdend() %>% 
      ggplot2::ggplot()
    
    result_list[[paste(d.method[i], c.method[j], sep = "_")]] <- cl_plot
  }
}

Please note that I've translated the code portion as requested, and you can continue working with the code to achieve your desired plot.
<details>
<summary>英文:</summary>
I have a dataframe like below.

I applied cluster analysis to this data frame and try to plot the result. Cluster analysis has two different part and each has multiple methods. So the result can be a multitude of patterns, as many as the combination of these methods applied together.
I want to show multiple results as well as which combination is applied in one picture.
I succeeded in putting the results into list object. 
My code is as following

result_list[[paste(d.method[i], c.method[j], sep = "_")]] <- cl_plot

In my data, there can be six methods for "d.method" and eight for "c.method", so there will be 6x8=48 patterns of plots and I want to arrange them into a matrix-form (column = d.method, row = c.method).
But i can't find how to put them into plots, with using `ggplot::facet_grid()` function. How can I make such a plot?
</details>
# 答案1
**得分**: 1
以下是翻译好的内容：
如果不需要使用ggplot的facet功能，您可以使用基本的R图形参数`mfrow`，并按照以下方式遍历您的数据框，每行一个图：
- 创建一个包含每种方法组合的数据框`d`：
```R
d.method <- c("euclidean", "maximum", "manhattan", "canberra", "binary", "minkowski")
c.method <- c("ward.D", "ward.D2", "single", "complete", "average", "mcquitty", "median", "centroid")
d <- 
  setNames(expand.grid(d.method, c.method),
           c('d.method', 'c.method')
           )

> d |> head(2)
   d.method c.method
1 euclidean   ward.D
2   maximum   ward.D

par(mfrow = c(8, 6),
    mar = rep(1, 4) ## 减小外边距（facets之间的间隔）
    )

library(dplyr)
d |>
  rowwise() |>
  mutate(clust = 
           ## 您可以将任何内容（如聚类结果）打包到*列表*列中：
           list( 
             iris[1:4] |>
             dist(method = d.method) |>
             hclust(method = c.method)
           ),
         plot(clust,
              main = paste(c.method, d.method, sep = ', ') , sub = '', 
              labels = FALSE,
              xlab = '', ylab = '')
         )