Início / user-21868503

Cloft X's questions

Martin Hope
Cloft X
Asked: 2024-01-23 00:05:27 +0800 CST
  • 5

Semelhante a esta pergunta , quero selecionar a última linha de cada grupo e atribuir um valor a ela.

 a <- data.frame("ID" = c("A", "A", "B", "B", "C", "C"),
                 "NUM" = c(1, 2, 4, 3, 6, 9),
                 "VAL" = c(1, 0, 1, 0, 1, 0))
 
 ID NUM VAL
  A   1   1
  A   2   0
  B   4   1
  B   3   0
  C   6   1
  C   9   0

Minha saída desejada:

 ID NUM VAL end.spell
  A   1   1         0
  A   2   0         1
  B   4   1         0
  B   3   0         1
  C   6   1         0
  C   9   0         1

Como eu faço isso? Qualquer ajuda é apreciada.

Martin Hope
Cloft X
Asked: 2023-12-22 06:48:30 +0800 CST
  • 7

Tenho os seguintes dados, com variável binária x:

df <- data.frame(id = c("a", "a", "a", "a", "b", "b", "b", "b"),
                 year = c("2001", "2002", "2003", "2004", "2001", "2002", "2003", "2004"),
                 x = c(0, 0, 1, 0, 0, 1, 1, 0))

 id year x
  a 2001 0
  a 2002 0
  a 2003 1
  a 2004 0
  b 2001 0
  b 2002 1
  b 2003 1
  b 2004 0

Quero criar uma variável yque atribua uma sequência de números inteiros y = 0para a primeira instância de x = 1. A saída ideal:

 id year x  y
  a 2001 0 -2
  a 2002 0 -1
  a 2003 1  0
  a 2004 0  1
  b 2001 0 -1
  b 2002 1  0
  b 2003 1  1
  b 2004 0  2

Qualquer ajuda é apreciada!

Martin Hope
Cloft X
Asked: 2023-12-21 22:29:04 +0800 CST
  • 5

Eu tenho os seguintes dados que gostaria de plotar:

df <- structure(list(age.cat = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L), levels = c("0-5", "5-10", "10-15", "15-20", "20-25", 
"25-30", "30-35", "35-40", "40-45", "45-50", "50-55", "55-60", 
"60+"), class = "factor"), sex = c("0", "0", "0", "0", "0", "0", 
"1", "1", "1", "1", "1", "1", "0", "0", "0", "0", "0", "0", "1", 
"1", "1", "1", "1", "1"), activity_group = c("Food Process", 
"Household", "Labor", "Manufacture", "Other", "Resource Acq", 
"Food Process", "Household", "Labor", "Manufacture", "Other", 
"Resource Acq", "Food Process", "Household", "Labor", "Manufacture", 
"Other", "Resource Acq", "Food Process", "Household", "Labor", 
"Manufacture", "Other", "Resource Acq"), count = c(97L, 86L, 
12L, 75L, 0L, 68L, 62L, 115L, 15L, 88L, 0L, 68L, 153L, 70L, 2L, 
71L, 0L, 290L, 175L, 150L, 44L, 138L, 0L, 500L), total = c(146L, 
2586L, 34L, 81L, 2767L, 92L, 100L, 2462L, 27L, 95L, 2549L, 121L, 
240L, 2002L, 48L, 116L, 1573L, 362L, 256L, 2450L, 75L, 170L, 
2180L, 836L), prop = c(0.0169996494917631, 0.0150718541885734, 
0.00210304942166141, 0.0131440588853838, 0, 0.0119172800560813, 
0.0115801270078446, 0.0214792678371311, 0.00280164363093015, 
0.0164363093014569, 0, 0.0127007844602167, 0.0352453351762267, 
0.0161253167472932, 0.00046072333563695, 0.0163556784151117, 
0, 0.0668048836673577, 0.0293279705044411, 0.0251382604323781, 
0.0073738897268309, 0.0231271995977878, 0, 0.0837942014412603
)), class = c("grouped_df", "tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-24L), groups = structure(list(age.cat = structure(c(1L, 1L, 
2L, 2L), levels = c("0-5", "5-10", "10-15", "15-20", "20-25", 
"25-30", "30-35", "35-40", "40-45", "45-50", "50-55", "55-60", 
"60+"), class = "factor"), sex = c("0", "1", "0", "1"), .rows = structure(list(
    1:6, 7:12, 13:18, 19:24), ptype = integer(0), class = c("vctrs_list_of", 
"vctrs_vctr", "list"))), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -4L), .drop = TRUE))

head(df)
# A tibble: 6 × 6
# Groups:   age.cat, sex [1]
  age.cat sex   activity_group count total    prop
  <fct>   <chr> <chr>          <int> <int>   <dbl>
1 0-5     0     Food Process      97   146 0.0170 
2 0-5     0     Household         86  2586 0.0151 
3 0-5     0     Labor             12    34 0.00210
4 0-5     0     Manufacture       75    81 0.0131 
5 0-5     0     Other              0  2767 0      
6 0-5     0     Resource Acq      68    92 0.0119

Quero barrar o gráfico de prop(no eixo y) contra age.cat(no eixo x) usando ggplot2. Mas não consigo descobrir como agrupar by sexe activity_group. Primeiro quero agrupar sexna posição "dodge", o que fiz usando o seguinte código:

# Plot
prop %>%
  ggplot(aes(age.cat, prop, fill = sex)) +
  geom_col(position = "dodge")

Mas também quero que cada barra me mostre a "pilha" da posição propfor activity_group. Qualquer ajuda é apreciada, obrigado!

Martin Hope
Cloft X
Asked: 2023-12-21 00:55:46 +0800 CST
  • 8

Eu tenho dois vetores com strings da seguinte maneira:

x <- c("Zimbabwe (Rhodesia)", "India", "Equatorial Guinea", "United States")

y <- c("Zimbabwe", "India", "Guinea")

Quero obter um vetor que contenha aquelas strings que não correspondem exatamente entre xe y. O resultado idealmente seria:

"Zimbabwe (Rhodesia)" "Zimbabwe" "Equatorial Guinea" "Guinea" "United States"

Estou tentando consolidar alguns conceitos aqui - sei que posso usar grep(paste(y, collapse = "|")para obter uma correspondência parcial para um vetor e âncoras para encontrar uma correspondência exata para uma determinada string. Mas como integrá-los?

Como eu faço isso?

Martin Hope
Cloft X
Asked: 2023-12-17 02:36:32 +0800 CST
  • 9

Eu tenho uma variável fictícia assim:

df <- data.frame(year = seq(1990, 1997, 1),
                 x = c(1, 0, 0, 0, 1, 1, 0, 0))

year  x
1990  1
1991  0
1992  0
1993  0
1994  1
1995  1
1996  0
1997  0

Quero criar uma yigualdade fictícia 1se o valor de xem qualquer um dos três anos anteriores for diferente de zero. O resultado esperado:

year  x   y
1990  1  NA
1991  0  NA
1992  0   1
1993  0   0
1994  1   1
1995  1   1
1996  0   1
1997  0   1

Como eu faço isso? Uma dplyrsolução é preferida.