如何根据下面的日期和时间部分创建 POSIXct 日期
date<-as.Date("2014-01-01")
hour<-5
minute<-15
second<-59
millisecond<-695
date
hour
minute
second
millisecond
输出应该是 POSIXct 对象
2014-01-01 05:15:59.695
我想创建一个空数据框,其中一列包含字符数据,一列包含数字数据,然后填充该数据框.
dat<-as.data.frame(cbind(character(3),vector("numeric",3)))
dat
for (i in 1:3)
{
dat[i,1]<-as.character("f")
dat[i,2]<-i
}
dat
结果如下.如你所见,我得到了所有NA:
> dat
V1 V2
1 <NA> <NA>
2 <NA> <NA>
3 <NA> <NA>
你能建议怎么做吗？
我在用
invalidateLater(5000, session)
在我的闪亮代码中,它正在工作.每隔5秒我就会刷新一个查询并更新一个图表.但是屏幕和图表每隔5秒就会变成灰色,因此在更新发生时看起来页面已经死了.有没有办法让图表更新并让页面看起来像死了？
@JOhn - 谢谢你在这里是我的ui.r.
shinyUI(pageWithSidebar(
headerPanel("tst"),
sidebarPanel(
sliderInput("n", "Number of plots", value=2, min=1, max=7),
width = 2
),
mainPanel(
# This is the dynamic UI for the plots
uiOutput("plots")
)
))
谢谢.
我有一个Shiny downloadHandler
在server.R中:
output$DownloadButton <- downloadHandler(
filename = function() {
paste("test", Sys.Date(), ".csv",sep="")
},
content = function(con) {
print("in download")
print(con) # this prints C:\\Users\\me\\Local\\Temp\\RtmpI1EjY7\\file668338e4c33
Data<-ReactiveGetData()$Data #Here I get the data I want to download
print(head(Data)) #This prints out the data with no errors
write.csv(Data, con)
}
)
这是ui.r:
sidebarPanel(
downloadButton("DownloadButton", label = "Download",class = NULL), ....
到目前为止它打印了临时文件:
C:\\Users\\me\\Local\\Temp\\RtmpI1EjY7\\file668338e4c33
但是当我手动转到此路径时,我收到错误消息"找不到文件"
然后当我点击下载按钮时,我没有收到错误,也没有任何反应.
知道为什么临时文件似乎没有被创建？
临时文件应该以csv结尾吗？
这里是一个简单的简单例子,如果你运行server.r和ui.r文件,你可以运行它.我无法下载以下文件:
任何想法下面都不存在"文件"对象为什么？
ui.r
library(shiny)
shinyUI(fluidPage(
sidebarPanel(
downloadButton("Download", label = "Download",class = NULL)
),
mainPanel( …我在 t 向量中有一个数据，给定数据我可以得到分位数
t = c(1,2,3,4,5,6,3,2,21,22,23,2,23,4,4,4444)
quantile(t,c(.3))
3
但我想做相反的事情
我想提供 3 并让它返回分位数百分比
喜欢 somefunction(3,t) ，输出为 30%
有这个功能吗？
我喜欢R,但简单的策划让我很生气.我有5列数据.第一列数据的日期为"数字",格式为20101101,20101102等...我尝试从数字转换为日期,但它不起作用.
我想用col1,col2,col3和col4制作一个折线图,用x轴表示每周或每月的日期.我不希望每周或每个月都看到所有日期.你能帮我吗？
这是我的R代码:
dates<-c(20101101,20101102,20101103,20101104,20101105,20101106,20101107,20101108,20101109,20101110,20101111,20101112,20101113,20101114,20101115,20101116,20101117,20101118,20101119,20101120) <br/>
col1<-c(seq(from=1,to=20, by=1))<br/>
col2<-c(seq(from=11,to=30, by=1))<br/>
col3<-c(seq(from=21,to=40, by=1))<br/>
col4<-c(seq(from=31,to=50, by=1))<br/>
data<-cbind(dates, col1, col2, col3, col4)<br/>
class(dates)<br/>
data #This is what my data looks like. NOTE: the "dates" field is type numeric so I TRY convert it below<br/><br/>
data[,1]<-as.Date(as.character(data[,1]), format("%Y%m%d"))#convert to date class<br/>
class(data[,1]) ### the conversion did not work. Help? The date column is still is numeric<br/>
任何帮助？
谢谢.
如何使 x 轴显示“xaxisTitles”向量中的文本？
这是我可以运行的代码：
require(ggplot2)
require(reshape)
xaxisTitles<- cbind("a","b","c","d","e","f","g","h","j","k")
df <- data.frame(time = 1:10,
a = cumsum(rnorm(10)),
b = cumsum(rnorm(10)),
c = cumsum(rnorm(10)))
df <- melt(df , id = 'time', variable_name = 'series')
# plot on same grid, each series colored differently --
# good if the series have same scale
ggplot(df, aes(time,value)) + geom_line(aes(colour = series))+ theme(axis.text.x = xaxisTitles)
我收到错误：
Error in (function (el, elname) :
Element axis.text.x must be a element_text object.
如何使用ggplot向点添加数据标签？
我有一个称为"堆叠"的堆叠数据框:
> head(stacked)
time value variable
1 100 152.2211 gg
2 110 146.3304 gg
3 115 143.5831 gg
4 120 140.9527 gg
5 125 138.4297 gg
6 130 136.0057 gg
> tail(stacked)
time value variable
755 1975 56.02922 t
756 1980 56.14049 t
757 1985 56.25148 t
758 1990 56.36219 t
759 1995 56.47262 t
760 2000 56.58277 t
现在假设我要显示数据标签,显示时间字段等于100的"值"字段.这是我的内容:
g<- ggplot(stacked, aes( x = time, y=value, colour=variable, group= variable) ) + geom_line() +
geom_text(data = stacked[stacked$time == 100,], …您知道在一段时间后查找最后一个文本的正则表达式是什么吗？
例子
this.is.a.test = test
GOOG.N.QQ.HH = HH
有任何想法吗？
谢谢你。
继上一个问题之后，我使用kableExtra 中的cell_spec函数来更改表格中单元格的背景颜色。如何删除 NA 文本并将 NA 单元格的背景着色为白色，以便 NA 显示为空白单元格？
下面是我的带有 NA 单元格的示例表。在现实生活中，有一个动态数量的列，每列中有不同数量的 NA。
---
output: pdf_document
---
```{r setup, include=FALSE}
library(kableExtra)
library(dplyr)
knitr::opts_chunk$set(echo = TRUE)
set.seed(2)
d <- data_frame(group = sample(LETTERS[1:5], 10, replace=TRUE), cat1=runif(10, 0, 100), cat2=runif(10, 0, 100))
d[3:5,2:3] <- NA
# Functions used to create color palette
max.val <- max(d[ , sapply(d, is.numeric)], na.rm=TRUE)
pal.fnc <- colorRamp(c("red", "yellow", "green"))
d <- d %>%
mutate_if(is.numeric, function(x) {
cell_spec(round(x,1), "latex", bold = F, color=grey(.3),
background …