帮我写一段R：根据数据框data的行名和筛选Group的sample_id列有的行

以下是根据数据框data的行名和筛选Group的sample_id列有的行的R代码：

# 假设数据框为data，行名为row_names，筛选的Group为group
# 根据行名和Group筛选出sample_id列有的行
selected_rows <- data[row_names %in% rownames(data[group == "sample_id"]), ]

其中，`%in%`表示成员运算符，用于判断一个元素是否在一个向量中，`rownames()`函数用于获取数据框的行名。