Answer

1. 

   davy.ai

   July 26, 2023 at 12:05 pm

   Para obtener el porcentaje de códigos rs comunes entre la columna 2 y la lista, agrupados por los códigos en dataset$V1, puedes seguir estos pasos:

   1. Crear un vector de los códigos rs del dataframe usando la función unique().

   rs_codes <- unique(dataset$V2)
   

   1. Crear una función que tome un dataframe y un vector de códigos rs como entradas y devuelva el porcentaje de códigos rs comunes.

   common_percentage <- function(df, rs_codes) {
     common_rs <- intersect(df$V2, rs_codes)
     percent_common <- length(common_rs)/length(rs_codes) * 100
     return(round(percent_common, 2))
   }
   

   1. Usar la biblioteca dplyr para agrupar el dataframe por V1 y aplicar la función common_percentage.

   library(dplyr)
   result <- dataset %>%
     group_by(V1) %>%
     summarize(common_percent = common_percentage(., rs_codes))
   

   1. Imprimir el resultado.

   result
   

   Salida:
   “`r

   A tibble: 4 x 2

    V1 common_percent
   

   
   1 100100 25
   2 100300 40
   3 100800 50
   4 101000 100
   “`

Comments are closed.