如何仅在包含指定字符串作为列名的列中使用sQuote

Question

我正在尝试在名称中包含字符串 intensity 的列的第一行的数据框中的值中添加单引号。

更改：

A     B     C    IntensityA ssIntensityB

asa   adf   df   123      183
as    sd    sd   121      41

收件人：

A     B     C    IntensityA ssIntensityB

asa   adf   df   '123'      '183'
as    sd    sd   121        41

我尝试了以下方法：

int_col <- grep("intensity", colnames(tab), value=TRUE, invert=FALSE)
int_c <- colnames(tab) %in% int_col
q <- sQuote(subset(Access.protein.input,int_c))

谢谢您的建议。