HSF1 <- HSF1[!duplicated(HSF1$sample_id), ] Error in `HSF1[!duplicated(HSF1$sample_id), ]`: ! Can't subset rows with `!duplicated(HSF1$sample_id)`. ✖ Logical subscript `!duplicated(HSF1$sample_id)` must be size 1 or 480, not 0. Run `rlang::last_trace()` to see where the error occurred.

这个错误是因为在使用 `!duplicated(HSF1$sample_id)` 时，没有符合条件的行被找到，导致逻辑向量的长度为0，无法进行行子集的操作。

你可以尝试检查一下 `HSF1$sample_id` 是否存在缺失值或者重复值，或者确认一下数据框 `HSF1` 是否已经被正确加载。另外，你也可以使用 `dplyr` 包中的 `distinct()` 函数来达到去除重复值的目的，例如：`HSF1 <- distinct(HSF1, sample_id, .keep_all = TRUE)`。