从R中的列中删除非唯一字符串组件

# 创建一个包含非唯一字符串组件的数据框
data <- data.frame(col = c("apple", "banana", "apple", "orange", "banana"))

# 找到非唯一的字符串组件
duplicated_rows <- duplicated(data$col)

# 从数据框中删除非唯一的字符串组件
filtered_data <- data[!duplicated_rows, ]

# 输出结果
print(filtered_data)

     col
1  apple
2 banana
4 orange