英文:
How to get the number of people in the household? and Linguistically homogeneous households?
问题
我需要翻译的部分是：
- 有一个数据框，我必须获取家庭中的人数和语言同质的家庭？
- 有多少户家庭使用一种语言？DAILY_LANG变量是语言代码。我需要找出有多少家庭使用一种语言，以及有多少家庭使用两种语言。
英文:
There is a dataframe I have to get the Number of people in the household and and Linguistically homogeneous households?
df <- data.frame(Village = c(rep("1", "30")),Number = c(33, 33, 33, 33, 33, 33, 33, 1, 1, 30, 30, 30, 30, 30, 30, 30,31, 31, 31, 31, 36, 36, 36, 36, 62, 62, 62, 62, 69, 69),Number_1 = c(183, 183, 183, 183, 183, 183, 183, 151, 151, 255, 255, 255, 255, 255, 255,255, 31, 31, 31, 31, 111, 111, 111, 111, 287, 287, 287,287, 219, 219),Number_3 = c(137, 137, 137, 137, 137, 137, 137, 113, 113, 191, 191, 191, 191, 191, 191,191, 23, 23, 23, 23, 83, 83, 83, 83, 215, 215, 215, 215, 164, 164),PERSNUM = c(1, 2, 3, 4, 5, 6, 7, 1, 2, 3, 1, 2, 3, 4, 5, 6,1, 2, 3, 1, 2, 3, 4, 5, 1, 2, 3, 4, 1, 2),DAILY_LANG = c(33, 33, 33, 33, 33, 33, 33, 1, 1, 1, 1, 1, 1, 0, 11,11, 11, 11, 11, 11, 0, 0, 11, 11, 11, 11, 11, 11, 11, 11))
How many household speak in one Language? the DAILY_LANG variable is the language code. I need find how many of families speak in one language and how many speak in 2 language.
Note: this question How to get the number of people in the household? answered. just need on find the ** Linguistically homogeneous households?**
Much appreciate for your answer
答案1
得分: 1
以下是您要翻译的内容：
按列分组，检查最大的PERSNUM是否为3或4：
library(dplyr)df %>%group_by(Village, Number, Number_1, Number_3) %>%filter(max(PERSNUM) %in% c(3, 4))# A tibble: 8 × 5# Groups: Village, Number, Number_1, Number_3 [2]# Village Number Number_1 Number_3 PERSNUM# <chr> <dbl> <dbl> <dbl> <dbl># 1 1 31 31 23 1# 2 1 31 31 23 2# 3 1 31 31 23 3# 4 1 31 31 23 1# 5 1 62 287 215 1# 6 1 62 287 215 2# 7 1 62 287 215 3# 8 1 62 287 215 4
然后检查他们是否会说1或2种语言：
df %>%group_by(Village, Number, Number_1, Number_3) %>%filter(length(unique(DAILY_LANG)) %in% c(1, 2))
英文:
Group by columns, check if the maximum PERSNUM is 3 or 4:
library(dplyr)df %>%group_by(Village, Number, Number_1, Number_3) %>%filter(max(PERSNUM) %in% c(3, 4))# A tibble: 8 × 5# Groups: Village, Number, Number_1, Number_3 [2]# Village Number Number_1 Number_3 PERSNUM# <chr> <dbl> <dbl> <dbl> <dbl># 1 1 31 31 23 1# 2 1 31 31 23 2# 3 1 31 31 23 3# 4 1 31 31 23 1# 5 1 62 287 215 1# 6 1 62 287 215 2# 7 1 62 287 215 3# 8 1 62 287 215 4
And to check if they speak 1 or 2 languages:
df %>%group_by(Village, Number, Number_1, Number_3) %>%filter(length(unique(DAILY_LANG)) %in% c(1, 2))
答案2
得分: -1
以下是您要翻译的内容：
"不清楚您想要计算哪一列。但是这里是您问题的一般回答：
library(tidyverse)df <- data.frame(foo = c(rep("a",5), rep("b", 5)),bar = c(1,1,1,3,3,1,1,3,3,3))print(df)#> foo bar#> 1 a 1#> 2 a 1#> 3 a 1#> 4 a 3#> 5 a 3#> 6 b 1#> 7 b 1#> 8 b 3#> 9 b 3#> 10 b 3result <- df %>%group_by(foo) %>%summarise(count = sum(bar == 3))print(result)#> # A tibble: 2 × 2#> foo count#> <chr> <int>#> 1 a 2#> 2 b 3
创建于2023年5月15日，使用reprex v2.0.2"
英文:
It's not clear which column you want to count. But here is a general answer to your problem:
library(tidyverse)df <- data.frame(foo = c(rep("a",5), rep("b", 5)),bar = c(1,1,1,3,3,1,1,3,3,3))print(df)#> foo bar#> 1 a 1#> 2 a 1#> 3 a 1#> 4 a 3#> 5 a 3#> 6 b 1#> 7 b 1#> 8 b 3#> 9 b 3#> 10 b 3result <- df %>%group_by(foo) %>%summarise(count = sum(bar == 3))print(result)#> # A tibble: 2 × 2#> foo count#> <chr> <int>#> 1 a 2#> 2 b 3
<sup>Created on 2023-05-15 with reprex v2.0.2</sup>
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论