df <- read.csv("/Users/imac/Desktop/left_join/blast_lineage.csv") df <- subset(df, virus_name_N == "Virus" | virus_name_X == "Virus") write.csv(df, "/Users/imac/Desktop/left_join/blast_lineage_new.csv", row.names = FALSE) 输出为啥是个空表，改一下代码

可能是因为在使用 `subset()` 函数时，条件过滤出的数据集是空的，导致输出的结果也是空表。你可以再次检查一下数据集中是否存在符合条件的数据。

另外，由于你没有对空缺值进行处理，若数据集中存在空缺值，则在写入新的csv文件时可能会出现问题。

你可以尝试修改代码，如下所示：

df <- read.csv("/Users/imac/Desktop/left_join/blast_lineage.csv")
df <- subset(df, virus_name_N == "Virus" | virus_name_X == "Virus", na.action = "na.pass") # na.action参数用于指定对空缺值的处理方式，na.pass表示保留空缺值
df[is.na(df)] <- "NA" # 将空缺值替换为NA
write.csv(df, "/Users/imac/Desktop/left_join/blast_lineage_new.csv", row.names = FALSE)

这样，你就可以得到正确的输出结果了。