df <- as.data.frame(installed.packages())

table(duplicated(df$Package))

ids <- df$Package[duplicated(df$Package)]

df2 <- subset(df, df$Package %in% ids)