我的df是这样的
df <- data.frame(t1 = c(10, 20, 30, 1, 0), t2 = c(30, 0, 40, 0, 0), t3 = c(10, 0, 3, 10, 0))
我想要做的是找到min了在df行,但不为0怎么办
df<- df%>% rowwise() %>%
do({
th <- c(.$t1, .$t2, .$t3,)
data.frame(., t_s_last = min(th[th > 0))
})
但它的工作原理但不适用于包含大于0的行的行.如果行中只有0(第5行),如何返回0？
HTML中的绝对初学者.这是一个布局问题.我有一个标题,width 100%
我希望有一个nav导航部分应该是15%页面,而其余部分85%应该显示一些内容.结束网页footer.
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<meta name="generator" content="CoffeeCup HTML Editor (www.coffeecup.com)">
<meta name="dcterms.created" content="fr, 09 okt 2015 06:20:07 GMT">
<meta name="description" content="">
<meta name="keywords" content="">
<link rel="stylesheet" type="text/css" href="mateusz.css">
<title>Nowa strona</title>
</head>
<body>
<div id = "header"> dada</div>
<div id = "nav" class="container"> <h1> ma </h1> </div>
<div id = "section" class="flex-column"> WTH </div>
<div id = "footer"> M </div>
</body>
</html>
样式:
body { margin:40px; …我正在与安装作斗争knitr，但我无法提供新的解决方案。最后我删除knitr并尝试再次安装。下面是整个过程的控制台，哪里出了问题？？？每次启动 R studio 并安装新软件包时，我都会收到错误消息（见下文）。
R version 3.1.2 (2014-10-31) -- "Pumpkin Helmet"\n Copyright (C) 2014 The R Foundation for Statistical Computing\n Platform: i386-w64-mingw32/i386 (32-bit)\n\n R is free software and comes with ABSOLUTELY NO WARRANTY.\n You are welcome to redistribute it under certain conditions.\n Type \'license()\' or \'licence()\' for distribution details.\n\n R is a collaborative project with many contributors.\n Type \'contributors()\' for more information and\n \'citation()\' on how to cite R or R packages in publications.\n\n Type …我有一些包含某些位置的数据集:
ex <- data.frame(lat = c(55, 60, 40), long = c(6, 6, 10))
而且我有气候数据
clim <- structure(list(lat = c(55.047, 55.097, 55.146, 55.004, 55.054,
55.103, 55.153, 55.202, 55.252, 55.301), long = c(6.029, 6.0171,
6.0051, 6.1269, 6.1151, 6.1032, 6.0913, 6.0794, 6.0675, 6.0555
), alt = c(0.033335, 0.033335, 0.033335, 0.033335, 0.033335,
0.033335, 0.033335, 0.033335, 0.033335, 0.033335), x = c(0, 0,
0, 0, 0, 0, 0, 0, 0, 0), y = c(1914, 1907.3, 1901.8, 1921.1,
1914.1, 1908.3, 1902.4, 1896, 1889.8, 1884)), row.names = c(NA, …数据结构是这样的
test<- structure(list(yta = c(1101L, 1101L, 1101L, 1101L, 1101L, 1101L,
1101L, 1101L, 1101L, 1101L, 1101L, 1101L, 1101L, 1101L, 1101L,
1101L, 1102L, 1102L, 1102L, 1102L, 1102L, 1102L, 1102L, 1102L,
1102L, 1102L, 1102L, 1102L, 1102L, 1102L, 1102L, 1102L, 1102L,
1102L, 1102L, 1102L, 1103L, 1103L, 1103L, 1103L, 1103L, 1103L,
1103L, 1103L, 1103L, 1103L, 1103L, 1103L, 1103L, 1103L, 1103L,
1103L, 1103L, 1103L, 1103L, 1103L), id = c("1101_3", "1101_3",
"1101_3", "1101_3", "1101_3", "1101_3", "1101_3", "1101_3", "1101_4",
"1101_4", "1101_4", "1101_4", "1101_4", "1101_4", "1101_4", "1101_4",
"1102_3", "1102_3", …我有一个看起来像这样的数据集
set.seed(100)
da <- data.frame(exp = c(rep("A", 4), rep("B", 4)), diam = runif(8, 10, 30))
对于数据集中的每一行,我想总结比特定行中的diam更大的观察值(diam),并包含在"exp"级别中.为此,我做了一个循环:
da$d2 <- 0
for (i in 1:length(da$exp)){
for (j in 1:length(da$exp)){
if (da$diam[i] < da$diam[j] & da$exp[i] == da$exp[j]){
da$d2[i] = da$d2[i] + da$diam[j]}
}
}
lopp工作正常,我得到了结果
exp diam d2
1 A 16.15532 21.04645
2 A 15.15345 37.20177
3 A 21.04645 0.00000
4 A 11.12766 52.35522
5 B 19.37099 45.92347
6 B 19.67541 26.24805
7 B 26.24805 0.00000
8 B 17.40641 65.29445
但是,我的实际数据集远远大于(> 40000行和> …
我的数据:
df <- data.frame(sp = c(LETTERS[1:8]),
tr = c("NS", "LS", "NS", "LS", "LS", "HS", "HS", "HS"),
bv = c(14, 5, 11, 5.6, 21, 5.4, 2, 4.8),
av = c(0.0, 14, 21, 48.4, 15, 55.6, 37, 66.2))
我做了酒吧情节
library(reshape2)
df1 <- melt(df, id.vars = c("sp", "tr"))
ggplot(aes(sp, value, fill = variable) , data = df1) + theme_classic() +
geom_bar(aes(lty = tr), lwd = 1.2, data = df1, stat = "identity", colour = "black", width =.8) +
theme(legend.position = "bottom" ) + …我有一个数据框
df <- data.frame(x = rep(seq(1:10), 10), y = rep(seq(1:10), each = 10), diameter = rnorm(100, 0.3, 0.03), height = rnorm(100, 0.2, 001))
ppp我想通过pppof包转换为文件spatstat。我希望diameter和height变量是，marks但我不能这样做。我尝试过这个
pp1<-ppp(df$x, df$y, marks = data.frame(df %>% select(diameter, height)))
但不起作用。
我想要的输出类似于finepines附加到spatstat包中的数据文件
> finpines
Marked planar point pattern: 126 points
Mark variables: diameter, height
window: rectangle = [-5, 5] x [-8, 2] metres