帮我优化一下：normal <- merge( normal_sample,cdata, by = "row.names", all = TRUE)我只要normal_sample有的行

你可以使用以下代码来仅保留 `normal_sample` 中有的行：

normal <- merge(normal_sample, cdata, by = "row.names", all.x = TRUE)

其中，`all.x = TRUE` 表示只保留 `normal_sample` 中的行，而 `by = "row.names"` 表示按照行名称进行合并。这样，结果中就只会包含 `normal_sample` 中有的行，而 `cdata` 中没有的行会被删除。