M.O's questions

Abaixo está um exemplo reproduzível com um dataframe de teste:

dat<- structure(list(A = c(1.3, 1.5, 1.6, 1.2, 1.1, 1.2), 
                     B = c(0.25, 0.21, 0.21, 0.15, 0.26, 0.17),
                     sig = c(1, 0, 1, 1, 1, 1 ),
                     coef = c(1.25, 2.5, 3.3, 1.8, 2.25, 4.5)), 
                class = c("tbl_df", "tbl", "data.frame"), 
                row.names = c(NA, -6L))

Quero criar uma nova coluna mvonde mutatea fórmula aplicada depende da condição em outra coluna. Além disso, isso tem que ser recursivo, então preciso do anterior como entrada. Também preciso definir um valor inicial inicial.

Por exemplo, se o valor na coluna A for superior ou igual a 1,2 e sig for igual a 1; mv = ((1 - Coluna B) * 1000)) +(Coluna B * 1000 * coef). Mas isso é apenas para a primeira linha. Para o resto, em vez de 1000 (valor inicial), deve ser o valor anterior. Se o valor na coluna A for superior ou igual a 1,2 e sig for igual a 0, então mv = valor anterior - (valor anterior * Coluna B. Se o valor da coluna A for inferior a 1,2, então tome o valor anterior inalterado.

A saída desejada é:

Tentei usar, case_whenmas os resultados não são bons e estou travado.

dat<-dat %>%
  mutate(mv = case_when(
    sig==1 ~ accumulate(
    B *(A>=1.2) * coef, .f = ~ .x * (1 + .y), .init = 1000)[-1],
    sig== 0 ~ accumulate(
      B *(A>=1.2), .f = ~ .x - (1 * .y), .init = 1000)[-1]))

Abaixo está um exemplo reproduzível com um dataframe de teste:

dat<- structure(list(A = c(1.3, 1.5, 1.6, 1.2, 1.1, 1.2), 
                     B = c(0.25, 0.21, 0.21, 0.15, 0.26, 0.17)), 
                class = c("tbl_df", "tbl", "data.frame"), 
                row.names = c(NA, -6L))

Quero adicionar uma coluna com um valor inicial, digamos 1000, e então usar accumulate, mas dependendo de uma condição na coluna A.

Basicamente, se o valor na coluna A for superior ou igual a 1,2; Coluna C = 1000-(Coluna B * 1000). Mas isso é apenas para a primeira linha. Para o resto, em vez de 1000 (valor inicial), deve ser o valor anterior.

Minha saída desejada seria algo como isto:

(e assim a primeira linha deve ser 1000 se a coluna A for inferior a 1,2).

Tentei usar accumulate, mas não consigo fazer a parte condicional funcionar:

dat<-dat %>%
  mutate(C = accumulate(tail(B,-1), .f = ~ .x - (.x * .y), .init = 1000))

Abaixo está um exemplo reproduzível com um dataframe de teste:

ts<-structure(list(OP = c(1, 3, 5), x = c(0.405595375690609, 0.256223899079487, 
0.0131878938991576), y = c(0.792096293298528, 0.0120686823502183, 
0.518370501697063), z = c(0.400826650671661, 0.279657100560144, 
0.409006189322099)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-3L))

Quero adicionar uma coluna usando mutateque me dê para cada linha a posição da coluna do segundo maior valor dentro das colunas selecionadas. Até agora, só consegui obter a coluna de índice do valor máximo dentro das colunas selecionadas fazendo:

td<-ts %>% 
  rowwise() %>% 
  mutate(second_max = which.max(c_across(c(2:4))))

Entretanto, para esse dataframe específico, minha saída desejada seria:

Estou trabalhando facet_wrap()para traçar probabilidades para três variáveis ​​discretas.

Abaixo está o gráfico facetado que consegui fazer:

Agora quero adicionar o logotipo dos times correspondentes em vez do texto do eixo.

Aqui está um exemplo do meu dataframe:

structure(list(ID = c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 
2L, 2L), type = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 
2L, 3L, 3L), levels = c("Domicile", "Nul", "Extérieur"), class = "factor"), 
    prob = c(0, 0, 0, 0, 0, 0, 0.3343, 0.1349, 0.3009, 0.2453, 
    0.3648, 0.6197), team = c("Reims", "Toulouse", "Nul", "Nul", 
    "Rennes", "Brest", "Reims", "Toulouse", "Nul", "Nul", "Rennes", 
    "Brest"), image_file = c("~/teamlg/Reims.png", "~/teamlg/Toulouse.png", 
    "Nul", "Nul", "~/teamlg/Rennes.png", "~/teamlg/Brest.png", 
    "~/teamlg/Reims.png", "~/teamlg/Toulouse.png", "Nul", "Nul", 
    "~/teamlg/Rennes.png", "~/teamlg/Brest.png"), game = c("Reims - Rennes", 
    "Toulouse - Brest", "Reims - Rennes", "Toulouse - Brest", 
    "Reims - Rennes", "Toulouse - Brest", "Reims - Rennes", "Toulouse - Brest", 
    "Reims - Rennes", "Toulouse - Brest", "Reims - Rennes", "Toulouse - Brest"
    ), frame = c("a", "a", "a", "a", "a", "a", "b", "b", "b", 
    "b", "b", "b"), frame2 = c("a", "a", "b", "b", "c", "c", 
    "d", "d", "e", "e", "f", "f")), row.names = c(NA, -12L), class = c("tbl_df", 
"tbl", "data.frame"))

Já criei uma image_filevariável no meu dataframe com os caminhos correspondentes dos logotipos de cada time.

Então adiciono uma labelcoluna primeiro:

fr$labels<- labels <- ifelse(fr$type != "Nul", sprintf("<img src='%s' width='50' height='50'/>", fr$image_file),"Nul")

Então eu ploto da seguinte forma:

f <- ggplot(fr, aes(x = type, y = prob,fill = type, group = type))
f<-f+geom_col() +
  geom_text(aes(label = ifelse(prob > 0,paste0(" ",
                                             scales::percent(prob, accuracy = 0.01)),""),
                color = type),fontface = "bold",family = "Oswald", size = 4,vjust = -1)+
  scale_y_continuous(labels = scales::percent_format(accuracy = 1),expand = expansion(add = c(0,0.25)))+
  ##adding the labels variable in the scale to get the logos###
  scale_x_discrete(name = NULL, label = labels) +
  theme(
    axis.text.x = ggtext::element_markdown()
  )+
  facet_wrap(~game, scale = "fixed",axes = "all_x",as.table = TRUE,ncol=1)+
  labs(subtitle = "Estimations après simulation de Monte Carlo sur un paramètre interne")+
  transition_states(frame2, wrap = FALSE)+
  shadow_mark(past = TRUE)+
  enter_fly(y_loc = 0)
f

Como você pode ver, isso não pega o logotipo do time correspondente, mas sim as três primeiras linhas da labelscoluna que adicionei. E também repete o mesmo para o segundo gráfico abaixo.

Como eu poderia obter os logos corretos correspondentes a cada time para que eu tenha no eixo x: "Logo 1" - "Nul" - "Logo2" e a mesma sequência com logos diferentes para o segundo gráfico? Obrigado pela ajuda.