我正在使用以下脚本生成网络图。由于脚本生成的是300+网络图,而我需要将它们保存为TIFF (.tiff)格式。有没有人能帮我做一个循环命令,同时输出每一个图。
address = vector()
net_density = vector()
net_diameter = vector()
ln= 0 #ln is short for line number
#contruct Relationship Tree
for (i in unique_reddit)
{ graph = construct_graph(reddit_content(i))
ln = ln + 1
address[ln] = i
net_density[ln] = edge_density(graph)
net_diameter[ln] = diameter(graph)
}
net_properties = data.frame(address, net_density, net_diameter)
发布于 2021-04-20 05:08:36
您可以使用以下代码保存绘图。通过在循环中粘贴来更改名称。
请注意,我无法测试您的代码,因为我错过了unique_reddit
变量。
address = vector()
net_density = vector()
net_diameter = vector()
ln= 0 #ln is short for line number
#contruct Relationship Tree
for (i in unique_reddit)
{
# create file
tiff(paste0("absolute_path/",i,".tiff") )
graph = construct_graph(reddit_content(i))
ln = ln + 1
address[ln] = i
net_density[ln] = edge_density(graph)
net_diameter[ln] = diameter(graph)
# Close the pdf file
dev.off()
}
net_properties = data.frame(address, net_density, net_diameter)
https://stackoverflow.com/questions/67156186
复制相似问题