在alteryx中,我试图在R工具中获得多个图形输出。我的循环运行了两次,但没有任何输出。我将如何获得此工具以输出多个图形。如果我在循环外调用p,此工具将为我提供一个图形,但我只会得到在该工具中运行的最后一个图形。
library(ggplot2)
cd <- read.Alteryx("#1", mode="data.frame")
AlteryxGraph(1, width=1008, height=298)
#Batch graph output for each unique "group by" configuration.
for (i in unique(cd$USN))
{
#Set graph data for each group:
plot.data = subset(cd,cd$USN==i)
#Plot settings:
p <- ggplot(data=plot.data, aes(x=factor(Dates), y=Counts, fill=Group)) +
geom_bar(stat="identity", width = .8, position=position_dodge(), colour="black") + xlab("Kroger Weeks") + ylab("Units") +
scale_fill_manual(values=c("#88B4F7", "#FF9333")) + theme(legend.position="bottom", legend.title = element_blank()) +
geom_text(aes(label=Counts), vjust=1.6, color="white", position = position_dodge(0.8), size=3.5) + ggtitle(plot.data$USN) +
theme(plot.title = element_text(family = "Trebuchet MS", color="#666666", face="bold", size=16, hjust=0.5))
p + scale_x_discrete("Kroger Weeks", labels=c("11" = "Early", "12" = "P3W4", "13" = "P4W1", "14" = "P4W2", "15" = "P4W3",
"16" = "P4W4", "17" = "P5W1", "18" = "P5W2", "19" = "P5W3", "20" = "P5W4",
"21" = "P6W1", "22" = "P6W2", "23" = "P6W3", "24" = "P6W4", "25" = "P7W1",
"26" = "P7W2", "27" = "P7W3", "28" = "P7W4", "29" = "P8W1", "30" = "P8W2", "31" = "P8W3", "32" = "P8W4"))
AlteryxMessage("How Many Times", msg.consts$INFO, priority.consts$LOW)
p
}
#p I ONLY GET AN OUTPUT IF I THIS HERE (and only my last graph)
invisible(dev.off())
答案 0 :(得分:0)
我确实有Alteryx,但是使用不多。但是,我认为问题与在R中的循环中显示ggplot对象有关。每当您将p
放入循环中时,它就不太可能出现...
我建议先尝试使用print(p)
而不是p
。如果解决了问题。然后,完成。
如果您想存储ggplot对象,以后再查看它们,请尝试(我没有更改内部内容,只用lapply
替换了循环):
myList <- lapply(unique(cd$USN), function(x) {
#Set graph data for each group:
plot.data = subset(cd, cd$USN==x)
#Plot settings:
p <- ggplot(data=plot.data, aes(x=factor(Dates), y=Counts, fill=Group)) +
geom_bar(stat="identity", width = .8, position=position_dodge(), colour="black") + xlab("Kroger Weeks") + ylab("Units") +
scale_fill_manual(values=c("#88B4F7", "#FF9333")) + theme(legend.position="bottom", legend.title = element_blank()) +
geom_text(aes(label=Counts), vjust=1.6, color="white", position = position_dodge(0.8), size=3.5) + ggtitle(plot.data$USN) +
theme(plot.title = element_text(family = "Trebuchet MS", color="#666666", face="bold", size=16, hjust=0.5))
p + scale_x_discrete("Kroger Weeks", labels=c("11" = "Early", "12" = "P3W4", "13" = "P4W1", "14" = "P4W2", "15" = "P4W3",
"16" = "P4W4", "17" = "P5W1", "18" = "P5W2", "19" = "P5W3", "20" = "P5W4",
"21" = "P6W1", "22" = "P6W2", "23" = "P6W3", "24" = "P6W4", "25" = "P7W1",
"26" = "P7W2", "27" = "P7W3", "28" = "P7W4", "29" = "P8W1", "30" = "P8W2", "31" = "P8W3", "32" = "P8W4"))
return(p)
}
您可以通过myList[[1]]
,myList[[2]]
等访问地块。
希望它会有所帮助。