Получить все переменные в кадре данных с указанным c шаблоном значений - PullRequest
0 голосов
/ 04 мая 2020

У меня есть набор данных с большим количеством переменных даты. Значение этих переменных находится в шаблоне \d\d/\d\d/\d\d или NA. Есть ли способ перечислить все переменные, которые соответствуют вышеуказанным шаблонам значений в R?

Вот вывод dput(head(df)).

structure(list(X = 1:6, uid = 1:6, uname = c("Debamitra", "Dipayan", 
"Debamitra", "Dipayan", "Dipayan", "Debamitra"), devid = c("8.68E+14", 
"8.67E+14", "8.68E+14", "8.67E+14", "8.67E+14", "8.68E+14"), 
    st_tm = c("11:21:00.000+05:30", "11:39:00.000+05:30", "11:50:00.000+05:30", 
    "11:56:00.000+05:30", "12:13:00.000+05:30", "12:40:00.000+05:30"
    ), dt = c("2/24/2020", "2/24/2020", "2/24/2020", "2/24/2020", 
    "2/24/2020", "2/24/2020"), as_nm = c("Debamitra", "Dipayan Banerjee", 
    "Debamitra", "Dipayan Banerjee", "Dipayan Banerjee", "Debamitra"
    ), cons = c("Yes", "Yes", "Yes", "Yes", "Yes", "Yes"), q1.1 = c("Assam", 
    "Assam", "Assam", "Assam", "Assam", "Assam"), q1.1_spfy = c(NA, 
    NA, NA, NA, NA, NA), q1.2 = c("Dheemaji", "Dheemaji", "Dheemaji", 
    "Dheemaji", "Dheemaji", "Dheemaji"), q1.2_spfy = c(NA, NA, 
    NA, NA, NA, NA), q1.3 = c("Dhemaji", "Dhemaji", "Dhemaji, Hatigarh( village)", 
    "Dheemaji", "Dheemaji", "Dhemaji"), q1.4 = c("Rural", "Rural", 
    "Rural", "Rural", "Rural", "Rural"), q1.5 = c("Hatigarh", 
    "Haoli", "Hatigarh", "Haoli", "Haoli", "Hatigarh"), q2.1 = c(4L, 
    4L, 4L, 8L, 4L, 4L), q2.2 = c("One year or more than one year", 
    "One year or more than one year", "One year or more than one year", 
    "One year or more than one year", "One year or more than one year", 
    "One year or more than one year"), q2.3 = c("Father", "Father", 
    "Father", "Father", "Father", "Father"), q2.3_spfy = c(NA, 
    NA, NA, "data", NA, NA), q2.4 = c("Less than equal to Class twelfth", 
    "Less than equal to Class twelfth", "Less than equal to Class twelfth", 
    "Less than equal to Class twelfth", "Less than equal to Class twelfth", 
    "Less than equal to Class twelfth"), q2.4_spfy = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q2.5 = c("Agriculture/fish breeding/poultry farming/animal rearing", 
    "Skilled labour (mechanic/tailor/weaver)", "Self-employed /business/enterprise /industry/shop keeper", 
    "Daily wage labourer/ Domestic help", "Daily wage labourer/ Domestic help", 
    "Daily wage labourer/ Domestic help"), q2.5_spfy = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q2.6 = c("Hindu", "Hindu", "Hindu", "Hindu", 
    "Hindu", "Hindu"), q2.6_spfy = c(NA, NA, NA, NA, NA, NA), 
    q2.7 = c("Others", "Others", "Others", "Others", "Scheduled Tribe", 
    "Others"), q2.7_spfy = c(NA_character_, NA_character_, NA_character_, 
    NA_character_, NA_character_, NA_character_), q2.9 = c("Tube well or borehole", 
    "Tube well or borehole", "Tube well or borehole", "Tube well or borehole", 
    "Tube well or borehole", "Tube well or borehole"), q2.9_spfy = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q2.10 = c("Own HH toilet", "Own HH toilet", 
    "Own HH toilet", "Shared toilet", "Own HH toilet", "Own HH toilet"
    ), q2.11 = c("Kuccha", "Kuccha", "Pucca", "Kuccha", "Semi-Pucca", 
    "Kuccha"), q2.12 = c("Yes", "No", "Yes", "No", "Yes", "Yes"
    ), q2.13 = c("Male member", NA, "Male member", NA, "Male member", 
    "Male member"), q3.1 = c(2L, 2L, 2L, 1L, 1L, 2L), q3.2 = c(NA, 
    NA, NA, NA, NA, NA), q3.2_a = c(1L, 0L, 1L, 0L, 0L, 0L), 
    q3.2_b = c(1L, 2L, 1L, 1L, 1L, 2L), q3.3 = c("Currently Married", 
    "Currently Married", "Currently Married", "Currently Married", 
    "Currently Married", "Currently Married"), q3.4 = c(33L, 
    25L, 27L, 21L, 23L, 27L), q3.5 = c(42L, 28L, 36L, 23L, 30L, 
    31L), q3.6 = c("Less than equal to Class twelfth", "Less than equal to Class Eighth", 
    "Less than equal to Class twelfth", "Less than equal to Class twelfth", 
    "Less than equal to Class twelfth", "Less than equal to Class twelfth"
    ), q3.6_spfy = c(NA, NA, NA, NA, NA, NA), q3.7 = c("Husband", 
    "Husband", "Husband", "Husband", "Husband", "Husband"), q3.8 = c("No income generating activity", 
    "No income generating activity", "No income generating activity", 
    "Yes, outside the home", "No income generating activity", 
    "No income generating activity"), q3.9 = c("Not working", 
    "Not working", "Not working", "Others", "Not working", "Not working"
    ), q3.9_spfy = c(NA, NA, NA, NA, NA, NA), q3.10 = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q3.11 = c("Agriculture/fish breeding/poultry farming/animal rearing", 
    "Skilled labour (mechanic/tailor/weaver)", "Self-employed /business/enterprise /industry/shop keeper", 
    "Daily wage labourer/ Domestic help", "Daily wage labourer/ Domestic help", 
    "Daily wage labourer/ Domestic help"), q3.11_spfy = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q3.12 = c("Yes, Other family member", "Myself and family members", 
    "Myself and family members", "Yes, Other family member", 
    "Myself and family members", "Myself and family members"), 
    q3.13 = c("Yes, anytime", NA, NA, "Yes, limited access", 
    NA, NA), q4.1_1 = c("4/3/2018", "10/10/2018", "9/7/2017", 
    "12/23/2017", "8/16/2018", "5/3/2018"), q4.1_2 = c(22L, 16L, 
    29L, 26L, 18L, 21L), q4.2 = c("Female", "Female", "Female", 
    "Female", "Female", "Female"), q4.3 = c("2nd Order", "2nd Order", 
    "2nd Order", "1st Order", "1st Order", "2nd Order"), q4.4 = c("Government institution", 
    "Government institution", "Government institution", "Government institution", 
    "Government institution", "Government institution"), q4.5 = c("Yes", 
    "Yes", "Yes", "Yes", "Yes", "Yes"), q4.1.b = c("Yes, date is available", 
    "Yes, date is available", "Yes, date is available", "Yes, date is available", 
    "Yes, date is available", "Yes, date is available"), q4.1.c = c("4/4/2018", 
    "10/19/2018", "10/25/2017", "12/23/2017", "8/17/2018", "5/24/2018"
    ), q4.1.d = c(NA_character_, NA_character_, NA_character_, 
    NA_character_, NA_character_, NA_character_), q4.1.e = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q4.2.b = c("Yes, date is available", "Yes, date is available", 
    "Yes, date is available", "Yes, date is available", "Yes, date is available", 
    "Yes, date is available"), q4.2.c = c("6/20/2018", "1/12/2019", 
    "10/25/2017", "2/14/2018", "10/10/2018", "6/20/2018"), q4.2.d = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q4.2.e = c(NA_character_, NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_
    ), q4.3.b = c("Yes, date is available", "Yes, date is available", 
    "Yes, date is available", "Yes, date is available", "Yes, date is available", 
    "Yes, date is available"), q4.3.c = c("6/20/2018", "1/12/2019", 
    "10/25/2017", "2/14/2018", "10/10/2018", "6/13/2018"), q4.3.d = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q4.3.e = c(NA_character_, NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_
    ), q4.4.b = c("Yes, date is available", "Yes, date is available", 
    "Yes, date is available", "Yes, date is available", "Yes, date is available", 
    "Yes, date is available"), q4.4.c = c("7/18/2018", "2/13/2019", 
    "12/20/2017", "3/14/2018", "11/14/2018", "7/18/2018"), q4.4.d = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q4.4.e = c(NA_character_, NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_
    ), q4.5.b = c("Yes, date is available", "Yes, date is available", 
    "Yes, date is available", "Yes, date is available", "Yes, date is available", 
    "Yes, date is available"), q4.5.c = c("7/18/2018", "2/13/2019", 
    "12/20/2017", "3/14/2018", "11/14/2018", "7/18/2018"), q4.5.d = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q4.5.e = c(NA_character_, NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_
    ), q4.6.b = c("Yes, date is available", "Yes, date is available", 
    "Yes, date is available", "Yes, date is available", "Yes, date is available", 
    "Yes, date is available"), q4.6.c = c("9/19/2018", "3/13/2019", 
    "2/21/2018", "4/14/2018", "12/12/2018", "10/27/2018"), q4.6.d = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q4.6.e = c(NA_character_, NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_
    ), q4.7.b = c("Yes, date is available", "Yes, date is available", 
    "Yes, date is available", "Yes, date is available", "Yes, date is available", 
    "Yes, date is available"), q4.7.c = c("9/19/2018", "3/13/2019", 
    "2/21/2018", "4/14/2018", "12/12/2018", "10/27/2018"), q4.7.e = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q4.7.f = c(NA_character_, NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_
    ), q4.8.b = c("Yes, date is available", "Yes, date is available", 
    "Yes, date is available", "Yes, date is available", "Yes, date is available", 
    "Yes, date is available"), q4.8.c = c("3/20/2019", "8/14/2019", 
    "6/20/2018", "10/14/2018", "6/12/2019", "3/20/2019"), q4.8.e = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q4.8.f = c(NA_character_, NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_
    ), q4.6.9 = c("1. On time full immunization", "1. On time full immunization", 
    "1. On time full immunization", "1. On time full immunization", 
    "1. On time full immunization", "1. On time full immunization"
    ), q4.7.1 = c("2", "2", "2 1 3", "2", "2", "2"), q4.7.1_a = c(0L, 
    0L, 1L, 0L, 0L, 0L), q4.7.1_b = c(1L, 1L, 1L, 1L, 1L, 1L), 
    q4.7.1_c = c(0L, 0L, 1L, 0L, 0L, 0L), q4.7.1_d = c(0L, 0L, 
    0L, 0L, 0L, 0L), q4.7.1_e = c(0L, 0L, 0L, 0L, 0L, 0L), q4.7.1_f = c(0L, 
    0L, 0L, 0L, 0L, 0L), q7.1_spfy = c(NA_character_, NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_
    ), q4.7.2 = c(NA, NA, NA, NA, NA, NA), q4.7.2_a = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.2_b = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.2_c = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.2_d = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.2_e = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.2_f = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.2_g = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.2_h = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.2_i = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.2_j = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.2_k = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.2_l = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.2_m = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.2_n = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.2_o = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.2_p = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.2_q = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.2_r = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.2_s = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.2_t = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.2_u = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.2_spfy = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q4.7.3 = c(NA, NA, NA, NA, NA, NA), q4.7.3_a = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.3_b = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.3_c = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.3_d = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.3_e = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.3_f = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.3_g = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.3_h = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.3_i = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.3_j = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.3_k = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.3_l = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.3_m = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.3_n = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.3_o = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.3_p = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.3_q = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.3_r = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.3_s = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.3_t = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.3_u = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.3_spfy = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q4.7.4 = c(NA, NA, NA, NA, NA, NA), q4.7.4_a = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.4_b = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.4_c = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.4_d = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.4_e = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.4_f = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.4_g = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.4_h = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.4_i = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.4_j = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.4_k = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.4_l = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.4_m = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.4_n = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.4_o = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.4_p = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.4_q = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.4_r = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.4_s = c(NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
    ), q4.7.4_t = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_), q4.7.4_u = c(NA_integer_, NA_integer_, 
    NA_integer_, NA_integer_, NA_integer_, NA_integer_), q4.7.4_spfy = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q5.1 = c("Govt health set up -Allopathic", 
    "Govt health set up -Allopathic", "Govt health set up -Allopathic", 
    "Govt health set up -Allopathic", "Govt health set up -Allopathic", 
    "Govt health set up -Allopathic"), q5.2 = c("Yes", "Yes", 
    "Yes", "Yes", "Yes", "Yes"), q5.3 = c("Outreach AWC", "Government Health Facilities", 
    "Outreach AWC", "Government Health Facilities", "Government Health Facilities", 
    "Outreach AWC"), q5.3_spfy = c(NA_character_, NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_
    ), q5.4 = c(NA, NA, NA, NA, NA, NA), q5.4_a = c(NA, NA, NA, 
    NA, NA, NA), q5.4_b = c(NA, NA, NA, NA, NA, NA), q5.4_c = c(NA, 
    NA, NA, NA, NA, NA), q5.4_d = c(NA, NA, NA, NA, NA, NA), 
    q5.4_e = c(NA, NA, NA, NA, NA, NA), q5.4_f = c(NA, NA, NA, 
    NA, NA, NA), q5.4_g = c(NA, NA, NA, NA, NA, NA), q5.4_spfy = c(NA, 
    NA, NA, NA, NA, NA), q5.5 = c("Yes", "Yes", "Yes", "Yes", 
    "Yes", "Yes"), q5.6 = c("Yes", "Yes", "Yes", "Yes", "Yes", 
    "Yes"), q5.7 = c(NA, NA, NA, NA, NA, NA), q5.7_a = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q5.7_b = c(NA_character_, NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_
    ), q5.8 = c("No", "Yes", "No", "Yes", "Yes", "No"), q5.9 = c("No", 
    "No", "No", "No", "No", "No"), q5.10 = c(NA_character_, NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_
    ), q5.10_spfy = c(NA, NA, NA, NA, NA, NA), q5.11 = c("Mother (alone)", 
    "Mother (alone)", "Mother (alone)", "Mother (alone)", "Mother (alone)", 
    "Mother (alone)"), q5.12 = c(NA, NA, NA, NA, NA, NA), q5.12_a = c("Yes", 
    "No", "Yes", "Yes", "No", "Yes"), q5.12_b = c("Yes", "No", 
    "Yes", "Yes", "No", "Yes"), q5.12_c = c("Yes", "Yes", "Yes", 
    "Yes", "No", "Yes"), q5.12_d = c("Yes", "Yes", "Yes", "Yes", 
    "Yes", "Yes"), q5.13 = c("Sometimes", "Sometimes", "Sometimes", 
    "Always", "Never", "Sometimes"), q5.14 = c("Yes", "Yes", 
    "Yes", "Yes", "Yes", "Yes"), q5.15 = c("Yes", "Yes", "Yes", 
    "Yes", "Yes", "Yes"), q5.16 = c("Yes", "Yes", "Yes", "Yes", 
    "Yes", "No"), q6.1 = c("5", "5 6", "3 5 6 13", "5 6", "5 6", 
    "5 6"), q6.1_a = c(0L, 0L, 0L, 0L, 0L, 0L), q6.1_b = c(0L, 
    0L, 0L, 0L, 0L, 0L), q6.1_c = c(0L, 0L, 1L, 0L, 0L, 0L), 
    q6.1_d = c(0L, 0L, 0L, 0L, 0L, 0L), q6.1_e = c(1L, 1L, 1L, 
    1L, 1L, 1L), q6.1_f = c(0L, 1L, 1L, 1L, 1L, 1L), q6.1_g = c(0L, 
    0L, 0L, 0L, 0L, 0L), q6.1_h = c(0L, 0L, 0L, 0L, 0L, 0L), 
    q6.1_i = c(0L, 0L, 0L, 0L, 0L, 0L), q6.1_j = c(0L, 0L, 0L, 
    0L, 0L, 0L), q6.1_k = c(0L, 0L, 0L, 0L, 0L, 0L), q6.1_l = c(0L, 
    0L, 0L, 0L, 0L, 0L), q6.1_m = c(0L, 0L, 1L, 0L, 0L, 0L), 
    q6.1_n = c(0L, 0L, 0L, 0L, 0L, 0L), q6.1_spfy = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_, 
    NA_character_), q6.1.1 = c("5 1", "5 6", "5 6", "5 6", "5 6", 
    "5 6"), q6.1.1_a = c(1L, 0L, 0L, 0L, 0L, 0L), q6.1.1_b = c(0L, 
    0L, 0L, 0L, 0L, 0L), q6.1.1_c = c(0L, 0L, 0L, 0L, 0L, 0L), 
    q6.1.1_d = c(0L, 0L, 0L, 0L, 0L, 0L), q6.1.1_e = c(1L, 1L, 
    1L, 1L, 1L, 1L), q6.1.1_f = c(0L, 1L, 1L, 1L, 1L, 1L), q6.1.1_g = c(0L, 
    0L, 0L, 0L, 0L, 0L), q6.1.1_h = c(0L, 0L, 0L, 0L, 0L, 0L), 
    q6.1.1_i = c(0L, 0L, 0L, 0L, 0L, 0L), q6.1.1_j = c(0L, 0L, 
    0L, 0L, 0L, 0L), q6.1.1_k = c(0L, 0L, 0L, 0L, 0L, 0L), q6.1.1_l = c(0L, 
    0L, 0L, 0L, 0L, 0L), q6.1.1_m = c(0L, 0L, 0L, 0L, 0L, 0L), 
    q6.1.1_n = c(0L, 0L, 0L, 0L, 0L, 0L), q6.1.1_spfy = c("Vaccination is important", 
    NA, NA, NA, NA, NA), q6.2 = c("Jointly with husband", "Mainly husband", 
    "Mainly Myself", "Jointly with other members", "Mainly Myself", 
    "Mainly Myself"), q6.3 = c("Jointly with husband", "Jointly with other members", 
    "Jointly with husband", "Jointly with other members", "Mainly husband", 
    "Mainly Myself"), q6.4 = c("Jointly with husband", "Jointly with other members", 
    "Jointly with husband", "Jointly with other members", "Mainly Myself", 
    "Jointly with husband"), q6.5 = c("Mainly Myself", "Mainly husband", 
    "Jointly with husband", "Jointly with other members", "Mainly Myself", 
    "Mainly Myself"), q6.6 = c("Mainly Myself", "Mainly husband", 
    "Jointly with husband", "Jointly with other members", "Mainly Myself", 
    "Mainly Myself"), q6.7 = c(NA, NA, NA, NA, NA, NA), q6.7_a = c("No", 
    "No", "No", "Yes", "No", "No"), q6.7_b = c("No", "Yes", "No", 
    "Yes", "No", "No"), q6.7_c = c("No", "Yes", "No", "Yes", 
    "No", "No"), q6.7_d = c("No", "No", "No", "Yes", "No", "No"
    ), q6.8 = c("Most of the time", "Most of the time", "Most of the time", 
    "Occasionally", "Most of the time", "Occasionally"), q2.8 = c("1 2 3 4 5 6 7 10 12 19 20", 
    "1 4 5 6 12 7 20 22", "1 2 3 4 5 6 7 8 12 19 21 23", "1 4 5 6 11 21", 
    "1 2 4 5 6 20 3", "1 2 3 4 5 6 7 12 19 20"), q2.8_a = c(1L, 
    1L, 1L, 1L, 1L, 1L), q2.8_b = c(1L, 0L, 1L, 0L, 1L, 1L), 
    q2.8_c = c(1L, 0L, 1L, 0L, 1L, 1L), q2.8_d = c(1L, 1L, 1L, 
    1L, 1L, 1L), q2.8_e = c(1L, 1L, 1L, 1L, 1L, 1L), q2.8_f = c(1L, 
    1L, 1L, 1L, 1L, 1L), q2.8_g = c(1L, 1L, 1L, 0L, 0L, 1L), 
    q2.8_h = c(0L, 0L, 1L, 0L, 0L, 0L), q2.8_i = c(0L, 0L, 0L, 
    0L, 0L, 0L), q2.8_j = c(1L, 0L, 0L, 0L, 0L, 0L), q2.8_k = c(0L, 
    0L, 0L, 1L, 0L, 0L), q2.8_l = c(1L, 1L, 1L, 0L, 0L, 1L), 
    q2.8_m = c(0L, 0L, 0L, 0L, 0L, 0L), q2.8_n = c(0L, 0L, 0L, 
    0L, 0L, 0L), q2.8_o = c(0L, 0L, 0L, 0L, 0L, 0L), q2.8_p = c(0L, 
    0L, 0L, 0L, 0L, 0L), q2.8_q = c(0L, 0L, 0L, 0L, 0L, 0L), 
    q2.8_r = c(0L, 0L, 0L, 0L, 0L, 0L), q2.8_s = c(1L, 0L, 1L, 
    0L, 0L, 1L), q2.8_t = c(1L, 1L, 0L, 0L, 1L, 1L), q2.8_u = c(0L, 
    0L, 1L, 1L, 0L, 0L), q2.8_v = c(0L, 1L, 0L, 0L, 0L, 0L), 
    q2.8_w = c(0L, 0L, 1L, 0L, 0L, 0L), q2.8_x = c(0L, 0L, 0L, 
    0L, 0L, 0L), q2.8_y = c(0L, 0L, 0L, 0L, 0L, 0L), q2.8_z = c(0L, 
    0L, 0L, 0L, 0L, 0L), end_tm = c("11:36:00.000+05:30", "11:53:00.000+05:30", 
    "12:04:00.000+05:30", "12:09:00.000+05:30", "12:25:00.000+05:30", 
    "12:50:00.000+05:30"), wlt_ter = c("Middle", "Poor", "Middle", 
    "Poor", "Poor", "Middle")), row.names = c(NA, 6L), class = "data.frame")

Я хочу извлечь имена переменных со значениями даты, т.е. q4.1. c, q4.2. c, q4.3. c, q4.4. c.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...