我有一个如下所示的数据集:
Month count
2009-01 12
2009-02 310
2009-03 2379
2009-04 234
2009-05 14
2009-08 1
2009-09 34
2009-10 2386
我想绘制数据(月份为x值,计为y值).由于数据存在差距,我想将月份信息转换为日期.我试过了:
as.Date("2009-03", "%Y-%m")
但它没有用.怎么了？似乎as.Date()也需要一天,并且无法设置当天的标准值？哪个功能解决了我的问题？
我有一个f带两个参数(p1和p2)的函数:
如果对于参数p2没有将值传递给函数,p1则应使用^ 2 的值.但是,如果给出一个值,我怎样才能在函数中找到.问题是p2如果没有值,则不会初始化变量.因此我无法测试p2存在NULL.
f <- function(p1, p2) {
if(is.null(p2)) {
p2=p1^2
}
p1-p2
}
是否有可能检查是否将值p2传递给函数？(我找不到isset()- 功能或类似的东西.)
我有一个3D数据集:
data = data.frame(
x = rep( c(0.1, 0.2, 0.3, 0.4, 0.5), each=5),
y = rep( c(1, 2, 3, 4, 5), 5)
)
data$z = runif(
25,
min = (data$x*data$y - 0.1 * (data$x*data$y)),
max = (data$x*data$y + 0.1 * (data$x*data$y))
)
data
str(data)
我想绘制它,但R alwyas的内置函数给出了错误
增加'x'和'y'值预期
# ### 3D Plots ######################################################
# built-in function always give the error
# "increasing 'x' and 'y' values expected"
demo(image)
image(x = data$x, y = data$y, z = data$z)
demo(persp)
persp(data$x,data$y,data$z)
contour(data$x,data$y,data$z)
当我在互联网上搜索时,我发现当X和Y值的组合不唯一时会发生此消息.但在这里他们是独一无二的 …
我想用R中的lm()函数计算线性回归.另外我想得到一个回归的斜率,我明确地给出了截距lm().
我在互联网上找到了一个例子,我试图阅读R-help"？lm"(不幸的是我无法理解它),但我没有成功.谁能告诉我我的错误在哪里？
lin <- data.frame(x = c(0:6), y = c(0.3, 0.1, 0.9, 3.1, 5, 4.9, 6.2))
plot (lin$x, lin$y)
regImp = lm(formula = lin$x ~ lin$y)
abline(regImp, col="blue")
# Does not work:
# Use 1 as intercept
explicitIntercept = rep(1, length(lin$x))
regExp = lm(formula = lin$x ~ lin$y + explicitIntercept)
abline(regExp, col="green")
感谢你的帮助.
我在P有一个约会
date = as.Date("2011-02-23", "%Y-%m-%d")
是否有可能找出该特定日期的月份天数？(关于leapyears).在PHP中,它看起来与此类似(http://www.php.net/manual/en/function.date.php):
days = format(date, "%t")
但是"%t"似乎在R中有不同的含义.这个问题是否有解决方案？
是否可以在图中着色部分标题？
x = 1:10
y = 1:10
plot(x, y, main="title (slope=1)")
在这个情节中,我想将颜色slope=1改为红色.
是否有可能找出使用MySQL表索引的频率？
我有几个表的索引,我想知道,如果有没有MySQL使用的indice.
我有一个真实数据的数据集,例如看起来像这样:
# Dataset 1 with known data
known <- data.frame(
x = c(0:6),
y = c(0, 10, 20, 23, 41, 39, 61)
)
plot (known$x, known$y, type="o")
现在我想问一个问题是"如果原始数据集的所有中间数据点都在周围测量值之间的直线上,那么0.3的Y值是多少？"
# X values of points to interpolate from known data
aim <- c(0.3, 0.7, 2.3, 3.3, 4.3, 5.6, 5.9)
如果你看图:我想得到Y值,其中ablines与已知数据的线性插值相交
abline(v = aim, col = "#ff0000")
因此,在理想情况下,我将使用我已知的数据创建"linearInterpolationModel",例如
model <- linearInterpol(known)
...然后,我可以询问Y值,例如
model$getEstimation(0.3)
(在这种情况下应该给出"3")
abline(h = 3, col = "#00ff00")
我怎么能意识到这一点？手动我会为每个值做这样的事情:
Xsmall且最接近的X值大于Xlarge当前X值X.relPos = (X - …我正在用PHP5编写一个需要某些文件代码的脚本.当A文件不可用时,首先会发出警告,然后抛出致命错误.当无法包含代码时,我想打印自己的错误消息.如果requeire不起作用,是否可以执行最后一个命令？以下不起作用:
require('fileERROR.php5') or die("Unable to load configuration file.");
error_reporting(0)仅使用白色屏幕来抑制所有错误消息,而不是使用error_reporting给出PHP错误,我不想显示它.
我DECIMAL从MySQL-Table中读取以格式存储的数据.我想对R内的那些数字进行计算.
我过去常常使用它们进行数字再现as.numeric(),但文档说:
numeric与double(和real)相同.
但是R中还有一个数据类型Decimal吗？(没有舍入错误的数据类型,...)
这里有一个舍入错误问题的简单示例:
numbersStrings = c("0.1", "0.9")
numbersNumeric = as.numeric(numbersStrings)
numbersMirror = c(numbersNumeric, 1-numbersNumeric)
str(numbersMirror)
numbersMirror
unique(numbersMirror) # has two times 0.1 ...
sprintf("%.25f", numbersMirror)
sprintf("%.25f", unique(numbersMirror)) # ... because there was a rounding error