正如r2evens所建议的，调查问题通常以标签的形式存储。如果你的主要目标是如何保存数据元素，你也可以考虑使用列表。将数据框中的数据作为列表中的一个元素，将问题作为向量和列表中的另一个元素。
因此，将df视为 Dataframe ，将question视为问题向量。

number <- c(3,7,8)
fruit <- c("apple", "grape", "lemon")
color <- c("red", "purple", "yellow")
taste <- c("sweet", "sweet", "sour")

df <- data.frame(number, fruit, color, taste)

question <- c("What is your favorite fruit?", "What is the color of the fruit?", "How does the fruit taste?")

然后可以将它们合并到一个命名列表中。

myList <- list(df = df, question = question)

不是很漂亮

> myList
$df
  number fruit  color taste
1      3 apple    red sweet
2      7 grape purple sweet
3      8 lemon yellow  sour

$question
[1] "What is your favorite fruit?"    "What is the color of the fruit?" "How does the fruit taste?"

但是当你只想看到数据的时候，你可以这样做。

> myList$df
  number fruit  color taste
1      3 apple    red sweet
2      7 grape purple sweet
3      8 lemon yellow  sour

在这些情况下，你需要问题，你可以调用它们。在这个例子中，我用问题替换字段名，但是我必须首先删除数字列，除非我为该列放置保持器。

myListQ <-myList$df[-1] 
names(myListQ) <- myList$question
myListQ

> myListQ
  What is your favorite fruit? What is the color of the fruit? How does the fruit taste?
1                        apple                             red                     sweet
2                        grape                          purple                     sweet
3                        lemon                          yellow                      sour

碱R溶液：

# Rename the data.frame's vectors and add the 
# the number column: result_df => data.frame
result_df <- within(
  setNames(
    df[-1,],
    df[1,]
  ),
  {
    number = c(3, 7, 8)
  }
)

# Print the result to the console: 
# data.frame => stdout(console)
result_df