R 如何将edgelist转换为邻接矩阵格式并保存在csv文件中？

我有个人对个人数据的边缘列表

PersonTo,PersonFrom
   P1,P2
   P3,P1
   P4,P6
   P6,P1

我想把它转换成邻接矩阵格式。我尝试了下面给出的代码，但它在R屏幕上显示输出。如何以csv格式保存此输出

rm(list=ls())
getwd()
library(igraph)
datafile <- "C:\\Users\\user\\desktop\\dd.csv"
edges <- read.csv(datafile)
head(edges)
as.matrix(get.adjacency(graph.data.frame(edges)))

rm（list=ls（））
getwd（）
图书馆（igraph）
数据文件您是否尝试过
write.csv
？输出可能是您想要的，尽管您可能希望将
row.names=FALSE
as.matrix（get.adjacy（graph.data.frame（edges）））write.csv（edges，file=“C:\\Users\\user\Desktop\\ddout.csv”，row.names=FALSE）是的，它显示矩阵输入文件，但没有在左侧显示列名否，我的意思是
write.csv（as.matrix（get.adjacy（graph.data.frame（edges））），file=“C:\\Users\\user\Desktop\\ddout.csv”，row.names=FALSE）
此命令在文件中显示此输出错误（file，ifelse（append，“a”，“w”）：无法打开连接另外：警告消息：在文件中（file，ifelse（append，“a”，“w”））：无法打开文件“C:\Users\sakih\u 000\Desktop\ddout.csv”：权限被拒绝，然后将其写入另一个文件，如“thisfile.csv”，它会将其放入您的工作目录中。