是否有可能在R中舍入到最接近的整数？我有时间戳数据,我想整理到最近的整分钟,以代表这一分钟内的活动.
例如,如果时间以minutes.seconds格式显示:
x <- c(5.56, 7.39, 12.05, 13.10)
round(x, digits = 0)
[1] 6 7 12 13
我的预期输出将是:
round(x, digits = 0)
[1] 6 8 13 14
我知道这很令人困惑,但是当我计算每分钟活动数据时,四舍五入到最接近的分钟是有道理的.这可能吗？
我对我的调查做出了回应,data.frame(Analysis)其中包括:
Q1 <- c("Agree", "Strongly Agree", "Disagree", "Neither", "Agree", "Neither")
我希望根据每个响应的级别为每个响应分配一个值.例如,"Strongly Agree"收到2,同时"Agree"得到1分.我想要的输出是:
Q1 <- c("Agree", "Strongly Agree", "Disagree", "Neither", "Agree", "Neither")
Q1_Score <- c(1, 2, -1, 0, 1, 0)
这似乎是一个简单的问题,但我很难找到答案!
谢谢.
我根据来自不同银行的数据以及不同地点和角色的员工创建了一份文档.我的.Rmd文件如下:
---
title: <center> <h1>Output Report</h1> </center>
mainfont: Arial
output:
pdf_document:
latex_engine: xelatex
sansfont: Arial
fig_crop: false
toc: true
classoption: landscape
fontsize: 11pt
geometry: margin=0.45in
header-includes:
- \usepackage{booktabs}
- \usepackage{sectsty} \sectionfont{\centering}
- \renewcommand{\contentsname}{}\vspace{-2cm}
---
<style>
.main-container {
max-width: 1200px !important;
}
</style>
```{r load myData, include=FALSE}
load("C:/Desktop/RawData.RData")
```
```{r global_options, R.options=knitr::opts_chunk$set(warning=FALSE, message=FALSE)}
```
\newpage
# Client One
```{r fig.width=18, fig.height=6, echo=FALSE, comment=" "}
library(ggplot2)
ggplot(subset(Durations, Client == "Client One")) +
aes(x = NumStart, y = Value) +
geom_rect(aes(xmin = NumStart, …我在R中使用ggplot2了以下代码画了一个(无板篮球)球场:
require(ggplot2)
ggplot(Coords, aes(X,Y, colour=Position)) +
geom_point() +
coord_equal() + theme(plot.background = element_rect(fill = 'grey')) +
geom_path(data=NetballCourt, aes(X,Y), colour="black", size=1)`<br><br>
法院的边线加横线很好,这些都包含在data.frame我称之为"NetballCourt"的中,球员运动"Coords"根据个人位置分类.
如何在球场的两端绘制半径为4.9米的半圆？对于那些不熟悉无板篮球的人来说,球场的规模在这里... http://netball.com.au/our-game/court-venue-specifications/
我希望将固定效果部分提取summary()为data.frame.我lme4用来运行以下模型:
SleepStudy <- lmer(Reaction ~ Days + (1|Subject), data = sleepstudy)
summary(SleepStudy)
我知道我可以summary使用以下内容提取随机效果部分:
SleepStudy_RE <- as.data.frame(VarCorr(SleepStudy))
是否有类似的固定效应代码,包括估计,标准误差,自由度和精确的p值？
谢谢.
我希望将文本作为可交互图形中的标签，并将鼠标悬停在这些标签上以获取更多信息。
但是，plotly 不会让我在同一行代码中有文本标签和悬停文本。我拼命地追求文本标签，不想使用简单的散点。
有没有办法修复下面的代码，以便可以显示文本标签和悬停文本？
谢谢。
# Load packages
require(ggplot2)
require(plotly)
# Example data
data(iris)
str(iris)
# Create new columns - with more information
iris$Symbol <- c("Se", "Ve", "Vi")[iris$Species]
iris$PlantedBy <- c("Bruce", "Joe", "Eliza")[iris$Species]
# Create in ggplot
ggplot(iris, aes(x = Sepal.Length, y =Sepal.Width, colour = Species,
label = Symbol)) +
geom_text(fontface = "bold", size = 6) +
theme_classic() +
theme(legend.position = "none")
# Plotly - point with hover text
plot_ly(iris, x = ~Sepal.Length, y = ~Sepal.Width, type = 'scatter',
mode …我经常使用kable和kableExtra包通过 Rmarkdown 创建漂亮的 html 表格。
我的一位客户最近要求悬停颜色为黄色，而不是当前的灰色。有谁知道这是否可能？
一个可重现的例子：
require(knitr)
require(kableExtra)
kable(mtcars, "html") %>%
kable_styling(bootstrap_options = c("striped", "hover"))
我希望在每个刻面之间添加一个厚厚的深灰色条。我不想在每个方面周围都有边框，而是在图之间有一个深灰色条。
library(ggplot2)
ggplot(mpg, aes(cty, hwy, color = factor(year))) +
geom_point() +
facet_wrap(~ cyl, nrow = 1)
尽管我的数据与上面的示例相同，但我发现了这个问题，只有一行而不是facet_grid.
我的数据集包含超过 500 个对各个运动员在不同地点进行的比赛活动的观察结果，并在足球比赛期间进行记录。下面是我的数据集的示例，其中每个符号都指一个匹配活动。例如，KEKick effective 是否有效，记录在Defense.
# Example data
df <- data.frame(Symbol = c('KE', 'TE', 'TE', 'TI',
'KE', 'KE', 'H', 'H',
'GS', 'KE', 'TE', 'H',
'KE', 'H', 'H', 'GS'),
Location = c('Defense', 'Defense', 'Midfield', 'Forward',
'Forward', 'Midfield', 'Midfield', 'Defense',
'Defense', 'Defense', 'Forward', 'Midfield',
'Midfield', 'Defense', 'Defense', 'Midfield'),
Time = c(1, 2, 3, 6,
15, 16, 16, 20,
22, 23, 26, 26,
27, 28, 28, 30))
我希望通过绘制 中每个位置随时间变化的比赛活动来可视化这些数据ggplot2。
# Load required package
require(ggplot2)
# Order factors …我每秒都收集电力数据(电力)(样本).因此,我的data.frame结构如下:
Test <- data.frame(Sample = c(1:20),
Power = c(0,0,0,0,0,50,67,100,92,0,0,0,36,89,36,0,0,0,89,90))
动力输入的数量取决于人在自行车上进行努力并偶尔休息.因此,电源不会以有序的方式出现.由于没有标记来指示努力何时开始和停止,我想包括这个细节.当功率> 0时可以表征努力,并且可以基于数据组一起评估每个努力的开始/停止.
我现在希望包含一个新列(标记),用于查找组合在一起并用零分隔的功率数据.例如,我的预期输出将是:
Test$Marker <- c("Rest","Rest","Rest","Rest","Rest","Effort 1","Effort 1","Effort 1","Effort 1",
"Rest","Rest","Rest","Effort 2","Effort 2","Effort 2","Rest","Rest","Rest",
"Effort 3","Effort 3")
不幸的是我的原始数据大于3000行,所以手动执行此操作会很繁琐!我怎么能在R中这样做呢？