R将字符向量组合为dataframe，并将向量名称作为行id

# 创建字符向量
vector1 <- c("apple", "banana", "cherry")
vector2 <- c("dog", "elephant", "fox")
vector3 <- c("green", "blue", "red")

# 将向量组合为dataframe，并设置行id
df <- data.frame(
  vector1 = vector1,
  vector2 = vector2,
  vector3 = vector3,
  row.names = c("vector1", "vector2", "vector3")
)

# 查看结果
print(df)

         vector1 vector2 vector3
vector1     apple     dog    green
vector2    banana elephant     blue
vector3     cherry      fox      red

# 示例：确保所有向量长度一致
vector1 <- c("apple", "banana", "cherry")
vector2 <- c("dog", "elephant", "fox", "goat")  # 长度不一致
vector3 <- c("green", "blue", "red")

# 使用`pmin`函数找到最小长度并截断所有向量
min_length <- min(length(vector1), length(vector2), length(vector3))
vector1 <- vector1[1:min_length]
vector2 <- vector2[1:min_length]
vector3 <- vector3[1:min_length]

# 再次组合为dataframe
df <- data.frame(
  vector1 = vector1,
  vector2 = vector2,
  vector3 = vector3,
  row.names = c("vector1", "vector2", "vector3")
)

# 示例：确保行id唯一
df <- data.frame(
  vector1 = vector1,
  vector2 = vector2,
  vector3 = vector3,
  row.names = c("vec1", "vec2", "vec3")  # 确保唯一性
)