Skip to main content
se añadieron 6 caracteres en el cuerpo
Origen Enlace
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

Lo que necesitas es saber que fechas (sin la hora) tienen una sola fila, para terminar quitando las mismas. Con R base puedes usar aggregate para agrupar y contar las filas, luego la selección de las mismas es trivial

fechas <- aggregate( id ~ format(df$fecha_hora, "%d/%m/%Y"), df, length)
colnames(fechas) <- c('fecha', 'filas')
fechas <- fechas[fechas$filas> 1, ] # Nos quedamos solo con las fecha con más de una fila
fechas <- fechas[fechas$filas> 1, ] 

Finalmente seleccionamos las filas cuya fecha es alguna de las válidas:

df[format(df$fecha_hora, "%d/%m/%Y") %in% fechas$fecha, ]

Por otro lado, con dplyr puedes hacer algo parecido:

library(tidyverse)

df %>% 
  add_count(fecha=format(fecha_hora, "%d/%m/%Y")) %>% 
  filter(n > 1)

Lo que necesitas es saber que fechas (sin la hora) tienen una sola fila, para terminar quitando las mismas. Con R base puedes usar aggregate para agrupar y contar las filas, luego la selección de las mismas es trivial

fechas <- aggregate( id ~ format(df$fecha_hora, "%d/%m/%Y"), df, length)
colnames(fechas) <- c('fecha', 'filas')
fechas <- fechas[fechas$filas> 1, ] # Nos quedamos solo con las fecha con más de una fila

Finalmente seleccionamos las filas cuya fecha es alguna de las válidas:

df[format(df$fecha_hora, "%d/%m/%Y") %in% fechas$fecha, ]

Por otro lado, con dplyr puedes hacer algo parecido:

library(tidyverse)

df %>% 
  add_count(fecha=format(fecha_hora, "%d/%m/%Y")) %>% 
  filter(n > 1)

Lo que necesitas es saber que fechas (sin la hora) tienen una sola fila, para terminar quitando las mismas. Con R base puedes usar aggregate para agrupar y contar las filas, luego la selección de las mismas es trivial

fechas <- aggregate( id ~ format(df$fecha_hora, "%d/%m/%Y"), df, length)
colnames(fechas) <- c('fecha', 'filas')
# Nos quedamos solo con las fecha con más de una fila
fechas <- fechas[fechas$filas> 1, ] 

Finalmente seleccionamos las filas cuya fecha es alguna de las válidas:

df[format(df$fecha_hora, "%d/%m/%Y") %in% fechas$fecha, ]

Por otro lado, con dplyr puedes hacer algo parecido:

library(tidyverse)

df %>% 
  add_count(fecha=format(fecha_hora, "%d/%m/%Y")) %>% 
  filter(n > 1)
Origen Enlace
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

Lo que necesitas es saber que fechas (sin la hora) tienen una sola fila, para terminar quitando las mismas. Con R base puedes usar aggregate para agrupar y contar las filas, luego la selección de las mismas es trivial

fechas <- aggregate( id ~ format(df$fecha_hora, "%d/%m/%Y"), df, length)
colnames(fechas) <- c('fecha', 'filas')
fechas <- fechas[fechas$filas> 1, ] # Nos quedamos solo con las fecha con más de una fila

Finalmente seleccionamos las filas cuya fecha es alguna de las válidas:

df[format(df$fecha_hora, "%d/%m/%Y") %in% fechas$fecha, ]

Por otro lado, con dplyr puedes hacer algo parecido:

library(tidyverse)

df %>% 
  add_count(fecha=format(fecha_hora, "%d/%m/%Y")) %>% 
  filter(n > 1)