小编use*_*311的帖子

示例代码:

EmigProb<-c(rep(seq(0.1,0.8,length=5),4),rep(seq(0.1,0.8,length=5),4))
RemainEmigProb<-c(rep(0.2,5),rep(0.4,5),rep(0.6,5),rep(0.8,5),rep(0.2,5),rep(0.4,5),rep(0.6,5),rep(0.8,5))
Value<-rnorm(40,5,3)
Parameter<-c(rep("Survival",20),rep("Resight",20))
fakedata<-data.frame(EmigProb=EmigProb,RemainEmigProb=RemainEmigProb,Value=Value,Parameter=Parameter)


q <-ggplot(fakedata,aes(EmigProb,Value,shape=factor(RemainEmigProb),colour=factor(Parameter),linetype=factor(RemainEmigProb)))+scale_colour_discrete("Parameter")+scale_linetype_discrete("Remain Emigrant Probability")+scale_shape_manual("Remain Emigrant Probability",values=c(0,5,6,15))
q <- q + layer(geom="point")
q <- q + layer(geom="line")
q

在这个例子中,有没有办法从"参数"图例中删除"Resight"和"Survival"中的"点"？

我的输入文件在PasteBin上.

我目前的图表代码是:

 #Input and data formatting
 merg_agg_creek<-read.table("merged aggregated creek.txt",header=TRUE)
 library(ggplot2)
 library(grid)
 source("http://egret.psychol.cam.ac.uk/statistics/R/extensions/rnc_ggplot2_border_themes.r")

 CombinedCreek<-data.frame(merg_agg_creek)
 Combined<-CombinedCreek[order(CombinedCreek[,2]),]
 Combined$Creek <- factor(rep(c('Culvert Creek','North Silcox','South Silcox','Yucca Pen'),c(32,57,51,31)))  
 Combined$Creek<-factor(Combined$Creek,levels(Combined$Creek)[c(1,4,3,2)])

 #The Graph Code

 creek <-ggplot(Combined,aes(Month,Density,color=factor(Year),shape=factor(Year)))+scale_color_discrete("Year")+scale_shape_discrete("Year")
 creek<-creek + facet_grid(Creek~. ,scales = "free_y")
 creek <- creek + geom_jitter(position = position_jitter(width = .3))
 creek<-creek+scale_color_grey("Year",end=.6)+theme_bw()
 creek<-creek+scale_y_continuous(expression("Number of prey captured " (m^2) ^-1))
 creek<-creek+opts( panel.border = theme_L_border() )+ opts(axis.line = theme_segment())
 creek<-creek+opts(panel.grid.minor = theme_blank())+opts(panel.grid.major = theme_blank())
 creek<-creek+scale_x_discrete("Month",breaks=c(2,5,8,11),labels=c("February","May","August","November"))
 creek

结果图是: 图

我的问题是,通过在"scale_x_discrete"中创建中断和标签,在图的右侧,12月的数据和构面标签之间存在较大的间隙.我尝试通过在"scale_x_discrete:"命令中添加"limits = c(0,13)"来消除这种差距,但结果图会破坏x标签.

如何消除这种差距？我的剧情创作中是否存在根本缺陷？

谢谢!

编辑:Didzis回答了下面的问题.我只需要从scale_x_discrete更改为scale_x_continuous

希望这是一个简单的问题，我忽略了答案，但在今天早上的搜索中，我一无所获。

我的计算机上有四个核心，并且希望在多个核心上同时运行 R 中的不同程序（循环）。如果我打开四个 R 会话，它们会自动放置在不同的核心上，还是我需要找到一种方法来处理降雪？

我之前曾成功地使用 Snowfall 来运行相同的程序，但之前具有不同的值。但是降雪能让我在不同的内核上运行完全不同的程序吗？我可以将每个模拟循环设置为不同的函数（即：func1、func2、func3、func4），然后让 Snowfall 将每个函数分配给不同的核心吗？

谢谢你的帮助