R语言双坐标轴处理绘图问题

如图所示求大神帮忙找个https://stackoverflow.com/questions/30813775/how-to-make-a-pareto-chart-aka-rank-order-chart-with-ggplot2可供参考，但是我要的是合并的图，所以ggplot似乎不能用，作业，浪费我这么久的时间，真是不想说什么了

dorothy小太阳 发表于 2017-10-24 14:56
如图所示求大神帮忙找个https://stackoverflow.com/questions/30813775/how-to-make-a-pareto-chart-aka-ra ...

你好代码如下

截止日期为周五上午11点，一定要确定能跑出来啊，我也很无语啊、、、#目前仍未解决，下面的画的坐标轴不相交导致线在最上面没有贴合，作业要求我也没办法啊、、、、、、、、

1. require(ggplot2)
   
2. require(reshape2)
   
3. 
   
4. CountrySales <- read.csv("hw4_CountrySales.txt")
   
5. CountrySales$id <- nrow(CountrySales):1
   
6. CountrySales$perc <- cumsum(CountrySales$sales)/sum(CountrySales$sales)*100
   
7. CountrySales$sales <- CountrySales$sales/0.4
   
8. CountrySales2 <- melt(CountrySales, id.vars = c("id", "country"))
   
9. CountrySales2$variable <- as.factor(CountrySales2$variable)
   
10. levels(CountrySales2$variable) <- c("Sales", "Percentage")
    
11.    
    
12. ggplot(CountrySales2, aes(id, value)) +  
    
13.     geom_line(aes(linetype=variable)) +
    
14.     coord_flip() +
    
15.     scale_y_continuous("Sales", sec.axis = sec_axis(~.*0.4))+
    
16.     scale_x_continuous(labels = rev(CountrySales$country), breaks=1:25) +
    
17.     labs(x=NULL, linetype=NULL) +
    
18.     theme_classic()

复制代码

deem 发表于 2017-10-24 18:12

你好这个代码似乎有很多问题。。。。。。。。。。目前我改到这里了
library("ggplot2")
library("reshape2")
library("colorspace")
CountrySales <- read.csv("hw4_CountrySales.txt")
CountrySales$id <- nrow(CountrySales):1
CountrySalesperc<- cumsum(CountrySalesperc <- cumsum(CountrySales$sales)/sum(CountrySales$sales)*100)
CountrySales$sales<−CountrySalessales <- CountrySalessales/0.4
CountrySales2 <- melt(CountrySales, id.vars = c("id", "country"))
CountrySales2variable<−as.factor(CountrySales2variable <- as.factor(CountrySales2variable)
levels(CountrySales2$variable) <- c("Sales", "Percentage")
   
ggplot(CountrySales2, aes(id, value)) +  
    geom_line(aes(linetype=variable)) +
    coord_flip() +
    scale_y_continuous("Sales", sec.axis = sec_axis(~.*0.4))+
    scale_x_continuous(labels = rev(CountrySales$country), breaks=1:25) +
    labs(x=NULL, linetype=NULL) +
    theme_classic()

deem 发表于 2017-10-24 18:12

你好这个代码似乎有很多问题。。。。。。。。。。目前我改到这里了
library("ggplot2")
library("reshape2")
library("colorspace")
CountrySales <- read.csv("hw4_CountrySales.txt")
CountrySales$id <- nrow(CountrySales):1
CountrySalesperc<- cumsum(CountrySalesperc <- cumsum(CountrySales$sales)/sum(CountrySales$sales)*100)
CountrySales$sales<−CountrySalessales <- CountrySalessales/0.4
CountrySales2 <- melt(CountrySales, id.vars = c("id", "country"))
CountrySales2variable<−as.factor(CountrySales2variable <- as.factor(CountrySales2variable)
levels(CountrySales2$variable) <- c("Sales", "Percentage")
   
ggplot(CountrySales2, aes(id, value)) +  
    geom_line(aes(linetype=variable)) +
    coord_flip() +
    scale_y_continuous("Sales", sec.axis = sec_axis(~.*0.4))+
    scale_x_continuous(labels = rev(CountrySales$country), breaks=1:25) +
    labs(x=NULL, linetype=NULL) +
    theme_classic()

deem 发表于 2017-10-24 18:12

你好这个代码似乎有很多问题。。。。。。。。。。目前我改到这里了
library("ggplot2")
library("reshape2")
library("colorspace")
CountrySales <- read.csv("hw4_CountrySales.txt")
CountrySales$id <- nrow(CountrySales):1
CountrySalesperc<- cumsum(CountrySalesperc <- cumsum(CountrySales$sales)/sum(CountrySales$sales)*100)
CountrySales$sales<−CountrySalessales <- CountrySalessales/0.4
CountrySales2 <- melt(CountrySales, id.vars = c("id", "country"))
CountrySales2variable<−as.factor(CountrySales2variable <- as.factor(CountrySales2variable)
levels(CountrySales2$variable) <- c("Sales", "Percentage")
   
ggplot(CountrySales2, aes(id, value)) +  
    geom_line(aes(linetype=variable)) +
    coord_flip() +
    scale_y_continuous("Sales", sec.axis = sec_axis(~.*0.4))+
    scale_x_continuous(labels = rev(CountrySales$country), breaks=1:25) +
    labs(x=NULL, linetype=NULL) +
    theme_classic()

不好意思卡着了，前面问题已经解决了能否告知如何再调整一下呢，似乎us可以上调一下跟0点结合？？这个上面没有交集啊

dorothy小太阳 发表于 2017-10-26 00:00
尤其是前面引用$都没加
alessales  CountrySales2  CountrySales2variable

代码没有问题，3楼就是代码做出的图。你复制下来的代码和我的4楼的代码不一样，你复制的有问题。