Question

我正在尝试编写一个只能在我的数据帧中的逻辑列上运行的函数。为此，我首先尝试生成数据框中列号的列表，这些列号被归类为“逻辑”。

对于数据帧，这里是我的数据分类方式：

str(m)
'data.frame':   169 obs. of  42 variables:
 $ Municipality                  : chr  "Andover" "Ansonia" "Ashford" "Avon" ...
 $ Webpage_Link                  : chr  "http://andoverconnecticut.org/services-government/building-zoning/" "http://www.cityofansonia.com/content/2524/2582/default.aspx" "http://www.ashfordtownhall.org/government/land-use/building-department/" "http://www.avonct.gov/building-department" ...
 $ Webpage_LastUpdate            : chr  NA NA NA NA ...
 $ Researcher                    : chr  "DM" "DM" "LG" "LG" ...
 $ Collection.Date               : chr  "11/4/15" "11/4/15" "1/26/16" "1/26/16" ...
 $ Complete                      : logi  TRUE TRUE TRUE TRUE TRUE TRUE ...
 $ Application_BuildPermit       : logi  TRUE FALSE TRUE TRUE FALSE TRUE ...
 $ Application_SolarPermt        : logi  FALSE FALSE TRUE TRUE FALSE FALSE ...
 $ Contact_Name                  : logi  TRUE TRUE TRUE TRUE TRUE FALSE ...
 $ Contact_Address               : logi  TRUE TRUE TRUE TRUE TRUE TRUE ...

Answer 1

(df <- data.frame(a = 1:3, b = letters[1:3], c = TRUE))
#   a b    c
# 1 1 a TRUE
# 2 2 b TRUE
# 3 3 c TRUE

sapply(df, is.logical)
#     a     b     c 
# FALSE FALSE  TRUE

如果您确实需要一个数字向量，那么您可以另外应用which：

which(sapply(df, is.logical))
# c 
# 3

返回归类为逻辑的列号

1 个答案: