對於我明白你的問題,你想要什麼,或者需要進行了重新盟友,真的很簡單。
首先,在讀取數據。
df <- read.table(text = "
ZONE-1 Zo-A Zone-3 Zo-B
58 On 75 NA
60 NA NA High
NA Off 68 Low
70 On NA NA
", header = TRUE, check.names = FALSE)
str(df)
'data.frame': 4 obs. of 4 variables:
$ ZONE-1: int 58 60 NA 70
$ Zo-A : Factor w/ 2 levels "Off","On": 2 NA 1 2
$ Zone-3: int 75 NA 68 NA
$ Zo-B : Factor w/ 2 levels "High","Low": NA 1 2 NA
df
ZONE-1 Zo-A Zone-3 Zo-B
1 58 On 75 <NA>
2 60 <NA> NA High
3 NA Off 68 Low
4 70 On NA <NA>
現在,問題(1), 「先把它由字符串值的列名」。所有列名都由字符串值組成,因此可以使用names
或colnames
完成。
names(df)
[1] "ZONE-1" "Zo-A" "Zone-3" "Zo-B"
colnames(df)
[1] "ZONE-1" "Zo-A" "Zone-3" "Zo-B"
現在問題(2),以獲得「相同」的列索引。 (我想這是列Zo-A
你所要求的。)
a <- which(colnames(df) == "Zo-A")
a
[1] 2
a2 <- grep("Zo-A", colnames(df))
a2
[1] 2
數據在dput格式。
df <-
structure(list(`ZONE-1` = c(58L, 60L, NA, 70L), `Zo-A` = structure(c(2L,
NA, 1L, 2L), .Label = c("Off", "On"), class = "factor"), `Zone-3` = c(75L,
NA, 68L, NA), `Zo-B` = structure(c(NA, 1L, 2L, NA), .Label = c("High",
"Low"), class = "factor")), .Names = c("ZONE-1", "Zo-A", "Zone-3",
"Zo-B"), class = "data.frame", row.names = c(NA, -4L))
編輯
如果你只需要得到的字母和標點符號組成的列名,你可以使用下面的正則表達式。
a3 <- grep("^[[:alpha:]|[:punct:]]*$", colnames(df))
a3
[1] 2 4
破折號在colnames中是不允許的,所以它被轉換爲''',至少當我嘗試它時),試試:'which(colnames(df)==「Zo.A」)' – timfaber
默認情況下,短跑。而我的實際欄目名稱很大,有很多破折號。而我在我的數據集中的列大約是100.所以將它們全部轉換爲'。'會很困難。 – Anagha
沒有比這只是通過自己閱讀數據的問題,你可以分享一些輸入(dput)? – timfaber