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)