使用Python 2.7.我有一个字典,其中包含团队名称作为键,以及每个团队作为值列表得分和允许的运行量:
NL_East = {'Phillies': [645, 469], 'Braves': [599, 548], 'Mets': [653, 672]}
我希望能够将字典输入函数并迭代每个团队(密钥).
这是我正在使用的代码.现在,我只能按团队一起去.我将如何遍历每个团队并为每个团队打印预期的win_percentage？
def Pythag(league):
runs_scored = float(league['Phillies'][0])
runs_allowed = float(league['Phillies'][1])
win_percentage = round((runs_scored**2)/((runs_scored**2)+(runs_allowed**2))*1000)
print win_percentage
谢谢你的帮助.
我比较新ggplot2,而且我在为我的轮廓添加适当的标签时遇到了麻烦.
使用经典的火山示例,我可以在默认等值线图中添加标签:
library(plyr)
library(ggplot2)
library(directlabels)
library(reshape)
volcano<-melt(volcano)
v<-ggplot(volcano, aes(x,y,z=z))
e<-v + stat_contour(aes(colour=..level..))
direct.label(e)
在上面的例子中,标签被适当地添加,但是如果我尝试为轮廓指定我自己的断点,事情会变得更复杂:
e<-v + stat_contour(aes(breaks=c(160, 170, 180), colour=..level..))
direct.label(e)
现在,轮廓由我提供的断点指定,但标签仍然显示所有默认轮廓.如何仅绘制图形轮廓的标签？
一个相关的问题,我如何绘制默认情况下未包含的轮廓水平标签？说休息165:
e<-v + stat_contour(aes(breaks=c(165), colour=..level..))
direct.label(e)
谢谢你的帮助!
我的数据集中有以下列:
presult aresult
I single
I double
I triple
I home run
SS strikeout
我想添加第三列"基础",这取决于列issult中结果的值.
例如,我希望基数为1表示单个,2表示双重,3表示三重,4表示本垒打,0表示删除.
通常我会像这样创建新变量:
dataset$base<-ifelse(dataset$aresult=="single", 1, 0)
问题是我不知道如何在不将所有其他变量设置为零的情况下编写新变量.
我想知道是否有可能在R中的轮廓内计算区域.
例如,轮廓区域由以下原因产生:
sw<-loess(m~l+d)
mypredict<-predict(sw, fitdata) # Where fitdata is a data.frame of an x and y matrix
contour(x=seq(from=-2, to=2, length=30), y=seq(from=0, to=5, length=30), z=mypredict)
对不起,我知道这段代码可能会令人费解.如果它太难读了.您可以向我展示如何计算简单生成轮廓的面积的任何示例都会有所帮助.
谢谢你的帮助.
我有一个没有列的数据框:
df<-data.frame(v1=c(1:10), v2=seq(1, 100, length=10))
我想将标题名称更改为"X"和"Y"
我知道我可以这样做:
names(df)<-c("X","Y")
我想要做的是编写一个函数,我可以将数据框作为参数传递,并将标题放在这些标题名称中.
我试过了:
get.names<- function(x)
{names(x)<-c("X", "Y")}
在此先感谢您的帮助.
我正在寻找一种方法来指定预测变量的值.当我使用当前数据运行glm时,我的一个变量的系数接近于1.我想把它设置为.8.
我知道这会给我一个较低的R ^ 2值,但我先验地知道模型的预测能力会更大.
glm的权重部分看起来很有希望,但我还没想到它.
任何帮助将不胜感激.
我正在尝试编写一个宏来删除A列中"True"的所有行.
这是我到目前为止:
Sub deleteBlankRows3()
Dim lastrow as Long
Dim x as Long
lastrow = 4650
For x=8 to x=lastrow
If (Range("A1").Offset(x,0) = True) Then
Range("A1").Offset(x,0).EntireRow.Delete
x = x + 1
End if
Next x
End Sub
我不知道出了什么问题!
我正在看Hadley Wickham的以下例子ggplot2:
library(ggplot2)
library(maps)
states<-map_data("state")
arrests<-USArrests
names(arrests)<-tolower(names(arrests))
arrests$region<-tolower(rownames(USArrests))
chloro<-merge(states, arrests, by="region")
chloro<-chloro[order(chloro$order), ]
qplot(long, lat, data=chloro, group=group, fill = assault, geom="polygon")
我想在地图上为一些着名的美国城市添加积分,但我无法做到.我试过了:
base_map<-qplot(long, lat, data=chloro, group=group, fill = assault, geom="polygon")
base_map + qplot(long, lat, data=us.cities) + borders("state", size=.5)
但是我收到以下错误:
Error in p + o : non-numeric argument to binary operator
In addition: Warning message:
Incompatible methods ("+.ggplot", "Ops.data.frame") for "+""
我该如何添加这些积分？
我想强制模型中的一个系数小于或等于零.
nnls包允许您设置所有系数等于或大于零,但我不知道如何指定特定系数小于零.
任何帮助将不胜感激.
我正在尝试使用alpha来控制图形填充的透明度.我知道alpha函数已被移动到scale包,但我仍然无法使它工作.
数据集:
library(scales)
library(ggplot2)
Groups <- data.frame(Level=c("High", "Above Average", "Average", "Below Average", "Low"),
Start=c(7.5, 5.5, 4.5, 2.5, .5), End=c(11.5, 7.5, 5.5, 4.5, 2.5))
Groups$Start<-as.numeric(as.character(Groups$Start))
d <- data.frame(x=1:10, y=1:10)
basicBox <- ggplot(d, aes(factor(x), y)) + geom_boxplot()
basicBox +
geom_rect(aes(NULL, NULL, xmin=Start, xmax=End, fill=Level), ymin=0, ymax=20, data=Groups) +
scale_fill_manual(values=alpha(c("red", "blue", "green", "grey", "purple"), 0.2))
类似的代码可以在Hadley Wickham的ggplot2的第86页找到.当我没有加载scale库时,我得到并且错误地说R不能识别alpha函数,但即使在我加载了scale之后我也无法使alpha工作正常.