久しぶりのR。JSONで読み込みCSVで出力
久しぶりの更新。だいぶ削られているこの頃。英語・コミュニーケションというハンディキャップがある中で、どのように信頼関係を築くか。中間管理職として、チームをモチベートして、outputを最大化するか。
High Output Managementというマネジメントの本を読んでいます。とっても刺さる。またまとめます。
さて、データ処理。
会社のデータベースからCSVで出力したら、idが16桁以上でエクセルの対応を超えてしまったので、JSONで出力し、Rで処理することにしました。
JSONファイルを読み込んで、セルを結合し、CSVファイルで出力する手順のメモ。
ライブラリーインストール
install.packages("jsonlite")
install.packages("curl")
library(jsonlite)
JSONファイルを読み込む
ad_data <- fromJSON("/Users/koko/Downloads/ad_data.json")
urlという名のcolumnに、URLを挿入
ad_data["url"] <- "https://xxxxxx/ads/adgroup_info.php?id="
ad_linkというcolumnを作り、そこに、urlとad_idを結合
ad_data$ad_link <- paste0(ad_data$url,ad_data$ad_id)
head(ad_data)
CSVに書き出し
write.csv(ad_data, "ad_data_3.csv", quote=FALSE, row.names=FALSE)