R语言向量转单行数据框后distinct去重失效问题解决

t()函数转置操作的默认返回值是矩阵类型，不会保留输入原有的数据框属性。你代码中t(as.data.frame(a))输出的是带行名的2列矩阵，并非dplyr::distinct()支持的标准数据框输入，因此无法实现去重效果。另外如果未提前加载dplyr包，直接调用distinct()还会触发函数找不到的报错。

适配现有逻辑的最小修改 #

只需要在转置操作外层嵌套as.data.frame()，强制将转置后的矩阵转回数据框类型即可：

# 加载dplyr包，distinct函数来自该包
library(dplyr)
a <- c(0, 0)
# 转置后强制转换回数据框
df <- as.data.frame(t(as.data.frame(a)))
# 去重
df_res <- distinct(df)

循环场景更稳定的写法 #

放弃t()转置的思路，直接按行构造数据框，从根源避免类型异常，后续循环逐行追加记录时兼容性更好：

library(dplyr)
a <- c(0, 0)
# 直接按行生成数据框，无需转置操作
df <- data.frame(V1 = a[1], V2 = a[2])
# 循环中追加新行可直接用rbind或者dplyr::bind_rows，不会出现类型漂移
# 例：df <- bind_rows(df, data.frame(V1 = new_val1, V2 = new_val2))
df_res <- distinct(df)

针对你给出的a<-c(0,0)示例，转换后初始数据框仅含1行，去重后返回1行2列的标准数据框，列值均为0；如果循环过程中追加了完全重复的行，distinct()会自动仅保留唯一行，符合预期。

提示：如果使用固定长度的向量做循环输入，建议提前给列设置明确的自定义名称，不要依赖默认的V1、V2命名，可避免列错位问题。

内容的提问来源于stack exchange，提问作者locket