Question

在Customer Review对象中，我与一个名为Like Review的表建立了关系。好吧，我希望收到的评论喜欢它是否有用

我的关系

    library(dplyr)
    library(tidyr)


    options(stringsAsFactors = FALSE)

    json_file <- "db1.json"

    boulder_flood_tweets <- stream_in(file(json_file))

    tweet_data <- data.frame(date_time = boulder_flood_tweets$created_at,
                     username = boulder_flood_tweets$user$screen_name,
                     tweet_text = boulder_flood_tweets$text,
                     coords = boulder_flood_tweets$coordinates)

    start_date <- as.POSIXct('2013-09-13 00:00:00')
    end_date <- as.POSIXct('2019-05-12 00:00:00')

    flood_tweets <- tweet_data %>%
     mutate(coords.coordinates = gsub("\\)|c\\(", "", coords.coordinates),
     date_time = as.POSIXct(date_time, format = "%a %b %d %H:%M:%S +0000 %Y")) %>%
     separate(coords.coordinates, c("long", "lat"), sep = ", ") %>%
     mutate_at(c("lat", "long"), as.numeric) %>%
     filter(date_time >= start_date & date_time <= end_date )

我的桌子

        <relation code="Review2User" localized="false"
              generate="true" autocreate="true">
        <sourceElement qualifier="likeReview" type="LikeReview"
                       cardinality="many" >
        </sourceElement>
        <targetElement qualifier="customerReview" type="CustomerReview"
                       cardinality="one">
        </targetElement>
    </relation>

我的疑问是，当我在后台添加一个新列时，但是该列只是该评论获得多少票的一个说明

示例：

评论x有10个有用的投票。

因此在后台，该表将如下所示：

评论|有用的选票 x | 10

当我单击10时，它将加载被投票为有用评论的用户列表

我的疑问是指如何将收到投票的评论分组为有用的，以及如何加载投票为肯定的用户列表

如何在后台杂项中添加新列，但仅过滤为true的对象

0 个答案: