Displaying 6 results from an estimated 6 matches for "p_series".
2017 Oct 13
4
[FORGED] can't print ggplot with Chinese characters to pdf files
...#Chinese title
> p1<-p1+theme(text = element_text(family = "Kaiti TC"))
> p2<-p2+theme(text = element_text(family = "Kaiti TC"))
>
> p<-array(list(NA), dim=2)
> p[[1]]<-p1
> p[[2]]<-p2
> p_series <- lapply(1:(length(p)), function(.x) p[.x][[1]])
> m2 <- marrangeGrob(p_series, nrow=2, ncol=1)
> ggsave("test_plot_chinese.pdf", m2)
>
> ? ? ? ? [[alternative HTML version deleted]]
>
> __________________________________________...
2017 Oct 13
1
[FORGED] can't print ggplot with Chinese characters to pdf files
...f1, aes(x=x, y=y))+geom_line()+ggtitle("??") #Chinese title
> p1<-p1+theme(text = element_text(family = "Kaiti TC"))
> p2<-p2+theme(text = element_text(family = "Kaiti TC"))
>
> p<-array(list(NA), dim=2)
> p[[1]]<-p1
> p[[2]]<-p2
> p_series <- lapply(1:(length(p)), function(.x) p[.x][[1]])
> m2 <- marrangeGrob(p_series, nrow=2, ncol=1)
> ggsave("test_plot_chinese.pdf", m2)
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at r-project.org mailin...
2017 Oct 12
2
can't print ggplot with Chinese characters to pdf files
...t;) #Chinese title
p2<-ggplot(df1, aes(x=x, y=y))+geom_line()+ggtitle("??") #Chinese title
p1<-p1+theme(text = element_text(family = "Kaiti TC"))
p2<-p2+theme(text = element_text(family = "Kaiti TC"))
p<-array(list(NA), dim=2)
p[[1]]<-p1
p[[2]]<-p2
p_series <- lapply(1:(length(p)), function(.x) p[.x][[1]])
m2 <- marrangeGrob(p_series, nrow=2, ncol=1)
ggsave("test_plot_chinese.pdf", m2)
[[alternative HTML version deleted]]
2017 Oct 20
0
[FORGED] can't print ggplot with Chinese characters to pdf files
...geom_line()+ggtitle("??")
p2<-ggplot(df1, aes(x=x, y=y))+geom_line()+ggtitle("??")
p1<-p1+theme(text = element_text(family = "Kaiti TC"))
p2<-p2+theme(text = element_text(family = "Kaiti TC"))
p<-array(list(NA), dim=2)
p[[1]]<-p1
p[[2]]<-p2
p_series <- lapply(1:(length(p)), function(.x) p[.x][[1]])
m2 <- marrangeGrob(p_series, nrow=2, ncol=1)
#ggsave("test_plot_chinese.pdf", m2)
cairo_pdf("test_plot_chinese.pdf")
print(m2)
dev.off()
2017-10-12 19:55 GMT-07:00 Paul Murrell <paul at stat.auckland.ac.nz>:
>...
2017 Oct 13
0
[FORGED] can't print ggplot with Chinese characters to pdf files
...e()+ggtitle("??") #Chinese title
>> p1<-p1+theme(text = element_text(family = "Kaiti TC"))
>> p2<-p2+theme(text = element_text(family = "Kaiti TC"))
>>
>> p<-array(list(NA), dim=2)
>> p[[1]]<-p1
>> p[[2]]<-p2
>> p_series <- lapply(1:(length(p)), function(.x) p[.x][[1]])
>> m2 <- marrangeGrob(p_series, nrow=2, ncol=1)
>> ggsave("test_plot_chinese.pdf", m2)
>>
>> [[alternative HTML version deleted]]
>>
>> ______________________________________________
>&g...
2017 Oct 16
0
[FORGED] can't print ggplot with Chinese characters to pdf files
...> p1<-p1+theme(text = element_text(family = "Kaiti TC"))
>> p2<-p2+theme(text = element_text(family = "Kaiti TC"))
>>
>> p<-array(list(NA), dim=2)
>> p[[1]]<-p1
>> p[[2]]<-p2
>> p_series <- lapply(1:(length(p)), function(.x) p[.x][[1]])
>> m2 <- marrangeGrob(p_series, nrow=2, ncol=1)
>> ggsave("test_plot_chinese.pdf", m2)
>>
>> [[alternative HTML version deleted]]
>>
>> ____________________...