質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
R

R言語は、「S言語」をオープンソースとして実装なおした、統計解析向けのプログラミング言語です。 計算がとても速くグラフィックも充実しているため、数値計算に向いています。 文法的には、統計解析部分はS言語を参考にしており、データ処理部分はSchemeの影響を受けています。 世界中の専門家が開発に関わり、日々新しい手法やアルゴリズムが追加されています。

解決済

Rネットワーク分析:Error in as.data.frame.default(x[[i]], optional = TRUE)

退会済みユーザー

退会済みユーザー

総合スコア0

R

R言語は、「S言語」をオープンソースとして実装なおした、統計解析向けのプログラミング言語です。 計算がとても速くグラフィックも充実しているため、数値計算に向いています。 文法的には、統計解析部分はS言語を参考にしており、データ処理部分はSchemeの影響を受けています。 世界中の専門家が開発に関わり、日々新しい手法やアルゴリズムが追加されています。

3回答

0評価

0クリップ

252閲覧

投稿2022/08/03 13:39

編集2022/08/07 11:16

前提

Rでネットワーク分析を行っています。
インプットは、とあるグループに所属する人員をAさん-Bさん、Aさん-Cさん、、Bさん-Cさん、、のように組み合わせたデータです。codeはグループ名、name.xとname.yには組み合わせた人員名が入っています。

codename.xname.y
1012AさんBさん
1012AさんCさん
1012AさんDさん
1012BさんAさん
1012BさんCさん
.........

発生している問題

  • igraphを使って算出した結果をCSVへ出力しようとしているが、エラーが発生。
resFrame1<-data.frame(name[i],gdata.deg[i],gdata.clo[i],gdata.eve[i],gdata.bet[i])

Error in as.data.frame.default(x[[i]], optional = TRUE) : cannot coerce class ""igraph.vs"" to a data.frame

R

pdata <- fread("file.csv", sep=",", header=T) list_name <- unique(pdata$name.x) resFrame1<-data.frame() #forループ上書き resFrame2<-data.frame() #最終的な結果統合用 m <- length(list_name) for(i in 1:m){ gdata <- graph.data.frame(pdata[,3:4], directed=F) gdata.deg <- degree(gdata)  #次数中心性 gdata.clo <- closeness(gdata) #近接中心性 gdata.eve <- evcent(gdata)$vector #固有ベクトル中心性 gdata.bet <- betweenness(gdata) #媒介中心性 name <- V(gdata) resFrame1<-data.frame(name[i],gdata.deg[i],gdata.clo[i],gdata.eve[i],gdata.bet[i]) #i番目の結果を代入 resFrame2<-rbind(resFrame2,resFrame1) #resFrame2の末行にresFrame1を代入 } write.csv(resFrame2, "test.csv")

実現したいこと

-4つの中心性を計算し、人名ごとに4つの中心性を出力したい。

name次数中心性近接中心性
Aさん30.2
Bさん40.6

よろしくお願いします。

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

退会済みユーザー

退会済みユーザー

2022/08/03 15:42

ループについて、下記のように書き換えてみましたが、エラーが発生しました。 原因と解消方法を知りたいです。 --------------------------------------------------------------------------------- resFrame1<-data.frame() #forループのたびに上書き resFrame2<-data.frame() #最終的な結果統合用 m <- length(list_name) for(i in 1:m){ gdata <- graph.data.frame(pdata2[,3:4], directed=F) gdata.deg <- degree(gdata)  #次数中心性 gdata.clo <- closeness(gdata) #近接中心性 gdata.eve <- evcent(gdata)$vector #固有ベクトル中心性 gdata.bet <- betweenness(gdata) #媒介中心性 name <- V(gdata) resFrame1<-data.frame(name[i],gdata.deg[i],gdata.clo[i],gdata.eve[i],gdata.bet[i]) #i番目の結果を代入 resFrame2<-rbind(resFrame2,resFrame1) #resFrame2の末行にresFrame1を代入 } --------------------- ■発生したエラー as.data.frame.default(x[[i]], optional = TRUE) でエラー: cannot coerce class ‘"igraph.vs"’ to a data.frame

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

R

R言語は、「S言語」をオープンソースとして実装なおした、統計解析向けのプログラミング言語です。 計算がとても速くグラフィックも充実しているため、数値計算に向いています。 文法的には、統計解析部分はS言語を参考にしており、データ処理部分はSchemeの影響を受けています。 世界中の専門家が開発に関わり、日々新しい手法やアルゴリズムが追加されています。