我有数据正在顺序添加到data.frameR中.我正在创建绘图,每次都经常显示结果.该图是根据某些标准进行颜色编码的,其中一些标准从未得到满足,因此图中没有这种颜色.
例如,
library(ggplot2)
dates15=seq(as.POSIXct("2015-01-01 00:00:00"), as.POSIXct("2015-06-30 23:45:00"), by="15 min")
ex.data=rnorm(length(dates15),2,1)
blue=c(1:5000)
pink=which(ex.data>50)
purple=c(10000:15000)
colours=rep("Black points", length(dates15))
colours[blue]="Blue Points"
colours[pink]="Pink points"
colours[purple]="Purple points"
all.data=data.frame(Date=dates15, Data=ex.data, Colours=colours)
g.cols=c("black", "blue", "pink", "purple")
ggplot(all.data, aes(Date, Data, colour=Colours, group=1))+geom_line()+scale_color_manual(values=g.cols)+
xlim(as.POSIXct("2015-01-01 00:00:00"), as.POSIXct("2015-02-12 23:45:00"))
在这个例子中,我将变量pink设置为仅大于50的点(这在我的数据中显然是不可能的).因此,在创建绘图时,Pink缺少"图例名称",但粉红色已分配给紫色标签.我希望颜色和标签始终保持匹配,即使有一个未使用的变量.
我是 PostgreSQL 的新手，希望能够在特定列以某种模式开头的情况下从表中删除行。
例如，
我有一reference列是一种时间戳（YYMMDDHHMM）。如果参考列以 16******** 开头，那么我希望将其删除。
到目前为止，我知道如果整个引用已知，如何删除该列。例如：
DELETE FROM my_tbl WHERE name='test1' AND ref_no=1601010000;
但是，我需要更改此设置，以便条件仅指定参考号的前 2 位数字。
如果我有一组数据,并绘制它,例如:
data=rnorm(100,1,2)
x=1:100
plot(x,data,type="l")
如何将某些点更改为不同的颜色？如:
coloured=c(2,3,4,5,43,24,25,56,78,80)
我想要coloured点,红色,如果可能的话,2,3,4和5之间的线为红色,因为它们是连续的.
我正在使用R创建一个多图grid.arrange,并希望更改我的标题,使其变为粗体(如果可能,则为斜体).
由于这是一个普遍的问题,我不会包含我的图的代码,但我用来制作多图的代码是:
grid.arrange(g1, g3, g4+theme(legend.position="none"),mylegend, top="Test title",
layout_matrix=matrix(c(1,1,2,3,4,4), ncol=2, byrow=TRUE),heights=c(1,1.5,0.3))
是否有任何其他参数可以传递给top参数来更改字体？
我有一个想要嵌入我的闪亮应用程序的图像,并且已经阅读了尽可能多的关于如何做到的内容.虽然,当我运行我的代码时,我得到的只是一个蓝色问号.
这是我在fluidPage ui命令中添加的代码行
img(src="logo.png", align = "right",height='100px',width='400px')
我的图像已放置在项目目录文件夹中,并尝试在名为www的单独文件夹中(根据此处给出的建议)
编辑:在以下上下文中使用的代码:
ui <- fluidPage(titlePanel("Test title"),
img(src="logo.png", align = "right",height='100px',width='400px'),
hr())
示例代码:
library(ggplot)
par(mfrow=c(1,1))
dates15=seq(as.POSIXct("2015-01-01 00:00:00"), as.POSIXct("2015-12-31 23:45:00"), by="15 min", tz="GMT")
ex1=rnorm(35040, 150, 2)
point=rep("Control", 35040)
red=c(1000:2000, 4000:5000, 10000:10500)
point[red]="Not Controlled"
gr.cols=c("black", "red")
DF=data.frame(Date=dates15,Data=ex1, Type=point)
ggplot(DF, aes(Date, Data,colour=Type))+geom_point()+geom_line()+scale_color_manual(values=gr.cols)
如何根据我的矢量创建带有彩色点的线图red,没有从最后一个红点到下一个红点的红线？在我的示例代码中,从2000到4000有一条红线,但我不想这样.我只想在连续点之间划一条线,只有当下一个点也是红色时才会变成红色.
我可以交换的顺序geom_line和geom_point,但该行仍然存在,它只是藏在黑点下方,没有解决不了的问题.
如果我有一个数据框，例如：
group=rep(1:4,each=10)
data=c(seq(1,10,1),seq(5,50,5),seq(20,11,-1),seq(0.3,3,0.3))
DF=data.frame(group,data)
现在，我想将每个data元素除以其组的平均值。例如：
group=rep(1:4,each=10)
data=c(seq(1,10,1),seq(5,50,5),seq(20,11,-1),seq(0.3,3,0.3))
DF=data.frame(group,data)
aggregate(DF,by=list(DF$group),FUN=mean)
#Group.1 group data
#1 1 1 5.50
#2 2 2 27.50
#3 3 3 15.50
#4 4 4 1.65
data1=c(seq(1,10,1)/5.5,seq(5,50,5)/27.5,seq(20,11,-1)/15.5,seq(0.3,3,0.3)/1.65)
DF1=data.frame(group, data1)
但是，这有点令人费解，并且在大型数据集中不容易工作。我觉得有一个apply应用程序可以在这里使用，但我找不到一个很好的方法来做到这一点。
我需要在R中创建一系列日期和时间,在15分钟内增加.目前,我这样做:
datestimes=seq(as.POSIXlt("2011-01-01 00:00:00"), as.POSIXlt("2015-09-30 23:45:00"), by="15 min")
我应该在一年中每次都读一次.问题是因为它正在调整BST,所以我在10月的某些日期得到两个值.
anm=aggregate(datestimes, by=list(datestimes$datestimes), FUN=length)
anm[which(anm$datestimes>1),]
Group.1 datestimes X.Date.
28993 2011-10-30 01:00:00 2 2
28994 2011-10-30 01:15:00 2 2
28995 2011-10-30 01:30:00 2 2
28996 2011-10-30 01:45:00 2 2
63933 2012-10-28 01:00:00 2 2
63934 2012-10-28 01:15:00 2 2
63935 2012-10-28 01:30:00 2 2
63936 2012-10-28 01:45:00 2 2
98873 2013-10-27 01:00:00 2 2
98874 2013-10-27 01:15:00 2 2
98875 2013-10-27 01:30:00 2 2
98876 2013-10-27 01:45:00 2 2
133813 2014-10-26 01:00:00 2 2 …我想从POSIXctR中提取小时,但检索2位数的答案.
例如,
test=as.POSIXct("2015-03-02 03:15:00")
test
[1] "2015-01-02 03:15:00 GMT"
month(testing)
[1] 1
hour(testing)
[1] 3
结果给出相关的月份和小时,但我希望看到01和03,而不是仅仅1和3.
选择一些简单的条件后，一旦单击动作按钮，我想要一个输出数据表。
该代码无需输入操作按钮即可工作。一旦包含observeEvent函数，就不再生成结果。请参见下面的示例代码。
注意：删除行observeEvent(input$gobutton,{和相应的})行将产生正确的输出。
library(shiny)
ui <- fluidPage(
fluidRow(column(6,div(checkboxGroupInput("test1", "Testing buttons",
choices=c("A","B","C"),
selected=c("A","B","C"))))),
hr(),
actionButton("gobutton","Start"),
dataTableOutput("summary_table")
)
server <- function(input,output){
output$summary_table <- renderDataTable({
observeEvent(input$gobutton,{
df=data.frame(col1=input$test1,col2=seq(1,length(input$test1),1))
df
})
})
}
shinyApp(ui=ui, server=server)