小编koe*_*bro的帖子

我正在尝试创建一个H2数据库来管理一些文本剪辑.其中一个字段将包含一个大字符串,可能有数百个,在少数情况下,数千个字长.

理想情况下,我不希望在创建表时限制此字段的大小; 它最好是动态调整大小,但如果不可能,则需要慷慨分配,以免文本被删除.关于如何实现这一点的任何建议？VARCHAR(10,000)可能吗？疯？谢谢.

我很有兴趣建立一个小型企业网站,其前端将是一个客户门户(安全消息中心),可能具有上传图像的能力.使用Paypal和CC(仅限美国)将需要电子商务功能.后端将是一个数据库,整个系统需要符合HIPAA标准.

我想知道这个平台应该建立在什么平台上？是否有用于安全消息传递的现成模块/库(我希望有电子商务)和数据库？我有编程Java的经验,但只在Android上,以及iOS上的Swift - 编写了几个应用程序 - 包括内置的SQLite功能.

如果我决定将其收缩,因为它最有可能,我想了解需要什么类型的编程或包.PHP/MySQL是否符合要求？你能指出我正确的方向,这样我就能教育自己吗？谢谢.

我想模拟滚动两个骰子.我用了:

d2 <- sample(1:6, 10^6, replace = T) + sample(1:6, 10^6, replace = T)

并获得预期的结果.我也试过了

s2d <- c()
for (i in 1:6) { 
  for (j in 1:6){ 
    s2d <- c(s2d, (i+j)) 
  } 
}
d2 <- sample(s2d, 10^6, replace=T)

这也有效,但这些感觉有点"蛮力".有更简单,更优雅的方式吗？

更一般地说,是否有一个函数需要2个(或更多)独立事件并对它们进行操作(加法,乘法)？

我用随机值创建了一个数据框

n <- 50
df <- data.frame(id = seq (1:n),
age = sample(c(20:90), n, rep = TRUE), 
sex = sample(c("m", "f"), n, rep = TRUE, prob = c(0.55, 0.45))
)

并想介绍一些NA值来模拟真实世界的数据.我试图使用,apply但无法到达那里.这条线

apply(subset(df,select=-id), 2, function(x) {x[sample(c(1:n),floor(n/10))]})

将检索随机值,但是

apply(subset(df,select=-id), 2, function(x) {x[sample(c(1:n),floor(n/10))]<-NA}) 

不会将它们设置为NA.是否尝试过with和within,太.

蛮力工作:

for (i in (1:floor(n/10))) {
  df[sample(c(1:n), 1), sample(c(2:ncol(df)), 1)] <- NA
  }

但我更愿意使用这个apply家庭.

我需要绘制几个定义为的数据点

c(x,y,stdev_x,stdev_y)

作为具有95%置信限的表示的散点图,示例显示了点和围绕它的一个轮廓.理想情况下,我想在点周围绘制椭圆形,但不知道该怎么做.我正在考虑构建样本并绘制它们,添加stat_density2d()但是需要将轮廓数量限制为1,并且无法弄清楚如何去做.

require(ggplot2)
n=10000
d <- data.frame(id=rep("A", n),
                se=rnorm(n, 0.18,0.02), 
                sp=rnorm(n, 0.79,0.06) )
g <- ggplot (d, aes(se,sp)) +
  scale_x_continuous(limits=c(0,1))+
  scale_y_continuous(limits=c(0,1)) +
  theme(aspect.ratio=0.6)
g + geom_point(alpha=I(1/50)) +
  stat_density2d()

我正在编写一个包装函数来绘制几个数据框:

gf <- function(dataframe){
  ggplot(dataframe, aes(x=Date, y=Close)) + 
  geom_point() + 
  ggtitle(nameofdataframe))

我无法弄清楚最后一部分,如何将数据框的名称作为在ggtitle()中使用的变量.请帮忙.

在我的数据框中,第一列是一个因素,我想删除具有某个factorname值的行(当值存在时).我试过了:

df <- df[-grep("factorname",df$parameters),]

当目标因子名称存在时,哪种方法很有效.但是,如果不存在factorname,则此命令会破坏数据帧,使其保留0行.所以我尝试过:

df <- df[!apply(df, 1, function(x) {df$parameters == "factorname"}),]

这不会删除违规行.我如何测试的存在factorname并删除行,如果factorname存在？

我试图从Hadley Wickham的ggplot2书中复制图6.11,该书描绘了Luv空间中的R颜色; 点的颜色代表自己,没有传说是必要的.

这是两次尝试:

library(colorspace)
myColors <- data.frame("L"=runif(10000, 0,100),"a"=runif(10000, -100, 100),"b"=runif(10000, -100, 100))
myColors <- within(myColors, Luv <- hex(LUV(L, a, b)))
myColors <- na.omit(myColors)
g <- ggplot(myColors, aes(a, b, color=Luv), size=2)
g + geom_point() + ggtitle ("mycolors")

第二次尝试:

other <- data.frame("L"=runif(10000),"a"=runif(10000),"b"=runif(10000))
other <- within(other, Luv <- hex(LUV(L, a, b)))
other <- na.omit(other)
g <- ggplot(other, aes(a, b, color=Luv), size=2)
g + geom_point() + ggtitle("other")

有几个明显的问题:

1. 这些图形看起来不像图.有关代码的任何建议吗？
2. 第一次尝试在Luv列中生成了大量的NA字段(在10,000次运行中只有~3100种命名颜色,而在第二次运行中则为~9950).如果L应该介于0-100和u和v介于-100和100之间,为什么我在第一次运行时有这么多的NA？我试过四舍五入,但没有用.
3. 为什么我有一个传奇？

非常感谢.

几个星期前,我是一名初学者,我正在努力学习这个apply家庭.无法弄清楚如何使用lapply它是疯狂的.是的,我抬头看了?lapply几本书,其中包括R简言之和R食谱,但仍然无法弄清楚我做错了什么.

lapply(X = c("ggplot2", "gtable", "grid"), library)
## Error: 'package' must be of length 1
lapply(X = c("ggplot2", "gtable", "grid"), FUN = function(x) library(x))
## Error: there is no package called 'x'
lapply(X = c("ggplot2", "gtable", "grid"), FUN = library)
## Error: 'package' must be of length 1
x = c("ggplot2", "gtable", "grid")
lapply(x, library)
## Error: 'package' must be of length 1
lapply(x, FUN = function(x) library(x))
## Error: …

我有几个字符串形式的公式,从文件读取,像这样:"0.657 + 0.343*age - 1.239 * cholesterol"我想将每个公式转换为公式对象,以在数据框上运行(即.my.formula <- 0.657 + 0.343*age - 1.239 * cholesterol).我该如何以编程方式执行此操作？