在向量情况下如何将结果合并为数据帧

时间:2019-05-23 06:58:12

标签: r

model {
  faster_rcnn {
    num_classes: 37
    image_resizer {
      keep_aspect_ratio_resizer {
        min_dimension: 600
        max_dimension: 1024
      }
    }
    feature_extractor {
      type: 'faster_rcnn_resnet101'
      first_stage_features_stride: 16
    }

如果我想在从csv文件中选择的作者中传递超过10000个名称,我该怎么做。

我希望在将结果“ n”绑定后将结果写入.csv文件。 像具有两列(名称,性别)和超过10000行(例如jyoti paswan,female)的表格形式

enter image description here

1 个答案:

答案 0 :(得分:0)

仅将名字传递给API,因为它返回1: ffmpeg -i input.mp4 -filter_complex "[0:v]trim=0:1.8,setpts=PTS-STARTPTS[v1]; [0:v]trim=1.8:3,setpts=PTS-STARTPTS[v2]; [0:v]trim=start=3,setpts=PTS-STARTPTS[v3]; [v2]setpts=PTS/0.22[slowv]; [v1][slowv][v3]concat=n=3:v=1:a=0[out]" -map "[out]" -c:v libx264 -preset ultrafast output.mp4 2: ffmpeg -i output.mp4 -i overlay.png -filter_complex "[0:v][1:v]overlay=38:950" -codec:a copy output1.mp4 3: ffmpeg -i output1.mp4 -vf "fade=type=out:duration=0.5:start_time=8.5" -c:a copy output2.mp4 4: ffmpeg -y -i output2.mp4 -i output1.avi -filter_complex "[0:v:0][1:v:0]concat=n=2:v=1[outv]" -map "[outv]" output.mp4 带有空格或姓氏的名字

NULL

具有要传递给函数的名称向量

gender_value<-function(author) {
   au <-sub("([^,]+),\\s*(.*)", "\\2 \\1", author)
   first_name <- sub("(.*)\\s+.*", "\\1", au)
   r <- GET(paste0("https://genderapi.io/api?name=",first_name))
   g <- content(r)$gender
   g <- if (is.null(g)) NA else g
   data.frame(author_name = au, gender = g)
}

,然后使用author_names <- c("nandan,vivek","paswan, jyoti") 将功能应用于每个名称。如果您要在数据框中传递名称,请使用lapply而不是dataframe_name$column_name

author_names

您现在可以使用df <- do.call(rbind, lapply(author_names, gender_value)) df # author_name gender #1 vivek nandan male #2 jyoti paswan female df写入csv

write.csv