R/get_top_coord_urls.R

In LeonardoSaracino/CooRnet_projectSNA: Detect coordinated link sharing behavior on social media

#' get_top_coord_urls
#'
#' A function to get the top n URLs shared in a coordinated way
#'
#' @param output the output list resulting from the function get_coord_shares
#' @param order_by name of the column used to order the top news. Default to "engagement". Other possible values are: "statistics.actual.likeCount", "statistics.actual.shareCount", "statistics.actual.commentCount", "statistics.actual.loveCount", "statistics.actual.wowCount", "statistics.actual.hahaCount", "statistics.actual.sadCount","statistics.actual.angryCount"
#' @param top number of the top URLs to be retrieved
#'
#' @return A data frame (grouped_df) containing the top imageText shared in a coordinated way by the highly coordinated entities, with shares and engagement statistics, list of entities and components that shared the link
#'
#' @examples
#' # get the top ten URLs shared in a coordinated way by each network component, by engagement
#' df <- get_top_coord_urls(output, order_by = "engagement", top=10)
#'
#' # get the top ten URLs shared in a coordinated way, by engagement
#' df <- get_top_news(output, order_by = "engagement", top=10)
#'
#' @importFrom dplyr filter n left_join rowwise mutate select arrange group_by top_n
#' @importFrom rlang sym
#' @importFrom tibble as_tibble
#' @importFrom plyr desc
#'
#' @export

get_top_coord_urls <- function(output, order_by = "engagement", top=10){

  ct_shares_marked.df <- output[[1]]
  highly_connected_coordinated_entities <- output[[3]]
  rm(output)

  top_imageText <- ct_shares_marked.df %>%
    dplyr::group_by(imageText) %>%
    dplyr::summarise(shares = dplyr::n(),
                     engagement = sum(statistics.actual.likeCount,
                                      statistics.actual.shareCount,
                                      statistics.actual.commentCount,
                                      statistics.actual.loveCount,
                                      statistics.actual.wowCount,
                                      statistics.actual.hahaCount,
                                      statistics.actual.sadCount,
                                      statistics.actual.angryCount),
                     statistics.actual.likeCount = sum(statistics.actual.likeCount),
                     statistics.actual.shareCount = sum(statistics.actual.shareCount),
                     statistics.actual.commentCount = sum(statistics.actual.commentCount),
                     statistics.actual.loveCount = sum(statistics.actual.loveCount),
                     statistics.actual.wowCount = sum(statistics.actual.wowCount),
                     statistics.actual.hahaCount = sum(statistics.actual.hahaCount),
                     statistics.actual.likeCount = sum(statistics.actual.likeCount),
                     statistics.actual.sadCount = sum(statistics.actual.sadCount),
                     statistics.actual.angryCount = sum(statistics.actual.angryCount)) %>%
    dplyr::rowwise() %>%
    dplyr::mutate(cooR.shares = length(which(ct_shares_marked.df$imageText == imageText & ct_shares_marked.df$is_coordinated==TRUE & ct_shares_marked.df$account.url %in% highly_connected_coordinated_entities$name)))  %>%
    dplyr::filter(cooR.shares > 0) %>%
    dplyr::mutate(sample.postUrl = dplyr::first(ct_shares_marked.df$postUrl[ct_shares_marked.df$imageText==imageText]),
                  account.url = paste(unique(ct_shares_marked.df$account.url[ct_shares_marked.df$imageText==imageText]), collapse=","),
                  cooR.account.url = paste(unique(ct_shares_marked.df$account.url[ct_shares_marked.df$imageText==imageText & ct_shares_marked.df$is_coordinated==TRUE & ct_shares_marked.df$account.url %in% highly_connected_coordinated_entities$name]), collapse=","),
                  cooR.account.url.list = list(unique(ct_shares_marked.df$account.url[ct_shares_marked.df$imageText==imageText & ct_shares_marked.df$is_coordinated==TRUE & ct_shares_marked.df$account.url %in% highly_connected_coordinated_entities$name])),
                  account.name = paste(unique(shQuote(ct_shares_marked.df$account.name[ct_shares_marked.df$imageText==imageText])), collapse=","),
                  cooR.account.name = paste(unique(shQuote(ct_shares_marked.df$account.name[ct_shares_marked.df$imageText==imageText & ct_shares_marked.df$is_coordinated==TRUE & ct_shares_marked.df$account.url %in% highly_connected_coordinated_entities$name])), collapse=","),
                  components = paste(unique(highly_connected_coordinated_entities$component[highly_connected_coordinated_entities$name %in% unlist(cooR.account.url.list)]), collapse = ",")) %>%
    dplyr::select(-cooR.account.url.list) %>%
    as.data.frame()

  return(top_imageText)
  }