Strange space on grid.arrange plot

I am trying to add footnote to grid.arrange graph. I presented my idea in this reproducible example: ) library(ggplot2) library(gridExtra) library(grid) library(gtable) summary(anscombe) p1 <- ggplot(anscombe) + geom_point(aes(x1, y1), color = "darkorange", size = 3) + theme_bw() p2 <- ggplot(anscombe) + geom_point(aes(x2, y2), color = "darkorange", size = 3) + theme_bw() p3 <- gg

奇怪的grid.arrange情节上的空间

我正在尝试将脚注添加到grid.arrange图形中。 我在这个可重现的例子中提出了我的想法:) library(ggplot2) library(gridExtra) library(grid) library(gtable) summary(anscombe) p1 <- ggplot(anscombe) + geom_point(aes(x1, y1), color = "darkorange", size = 3) + theme_bw() p2 <- ggplot(anscombe) + geom_point(aes(x2, y2), color = "darkorange", size = 3) + theme_bw() p3 <- ggplot(anscombe) + ge

R: Calculate sill, range and nugget from a raster object

I need to calculate the sill, range and nugget from a raster layer. I have explored gstat, usdm packages where one can create variogram however I couln't find a function which given a raster layer will estimate these parameters.In most of the functions these parameters have to be defined eg. krigging. I have raster data layers for different heights which looks similar to I would like ge

R:从栅格对象计算窗台,范围和块

我需要从栅格图层计算窗台,范围和块。 我已经探索了gstat,usdm软件包,可以创建变差函数,但是我没有找到一个给定栅格图层的函数来估计这些参数。在大多数函数中,这些参数必须被定义,例如。 krigging。 我有不同高度的栅格数据图​​层,看起来类似于 我希望得到适合这些数据层的半变异函数参数的基石,金块和范围,以创建一个与此类似的情节: 原始数据层在这里可用作多频段tiff。 下面是本文的一幅图,它进一步说明

Generate random variables from a distribution function using inverse sampling

I have a specific density function and I want to generate random variables knowing the expression of the density function. For example, the density function is : df=function(x) { - ((-a1/a2)*exp((x-a3)/a2))/(1+exp((x-a3)/a2))^2 } From this expression I want to generate 1000 random elements with the same distribution. I know I should use the inverse sampling method. For this, I use the CDF

使用反向采样从分布函数生成随机变量

我有一个特定的密度函数,我想生成知道密度函数表达式的随机变量。 例如,密度函数是: df=function(x) { - ((-a1/a2)*exp((x-a3)/a2))/(1+exp((x-a3)/a2))^2 } 从这个表达式我想要生成1000个具有相同分布的随机元素。 我知道我应该使用逆采样方法。 为此,我使用我的PDF的CDF函数计算如下: cdf=function(x) { 1 - a1/(1+exp((x-a3)/a2)) 我们的想法是生成均匀分布的样本,然后将它们与我的CDF函数进行映射以获得逆映

Plot Frequency Distribution of One

I have a single series of values (ie one column of data), and I would like to create a plot with the range of data values on the x-axis and the frequency that each value appears in the data set on the y-axis. What I would like is very close to a Kernel Density Plot: # Kernel Density Plot d <- density(mtcars$mpg) # returns the density data plot(d) # plots the results and Frequency distribu

绘图的频率分布

我有一系列值(即一列数据),我想创建一个绘图,其中x轴上的数据值范围和每个值出现在y轴上的数据集中的频率。 我想要的是非常接近核密度图: # Kernel Density Plot d <- density(mtcars$mpg) # returns the density data plot(d) # plots the results 和频率分布在R在计算器上。 但是,我想在y轴上的频率(而不是密度)。 具体来说,我正在使用网络程度分布,并且希望使用开放圆点(即此图像)的双对数比例。

fast, efficient way to loop over millions of rows and match columns

I'm working with eye tracking data right now, so have a HUGE dataset (think millions of rows) and so would like a fast way to do this task. Here's a simplified version of it. The data tells you where the eye is looking at each time point, and for each file we are looking at. X1,Y1 to the coordinates of the point we're looking at. There are multiple time points for each file (repr

快速,高效的方式循环数百万行并匹配列

我现在正在使用眼动追踪数据,所以有一个巨大的数据集(想想成百万行),所以想要一个快速的方法来完成这个任务。 这是它的简化版本。 数据告诉你眼睛在每个时间点看什么,以及我们正在看的每个文件。 X1,Y1到我们正在查看的点的坐标。 每个文件有多个时间点(代表着眼睛在不同时间看着文件中的不同位置)。 Filename Time X1 Y1 1 1 10 10 1 2 12 10 我还有一个文件,

passing Shiny variables from ui.R to server.R

I'm re-posting this from scratch in hopes someone can get me through this learning opportunity. I'm having trouble passing a variable from ui.R to server.R in the following Shiny app. I'm also including global.R. One section of that file pings my cloud-based MySQL db. I didn't want to share the password for that on here; you can get the query results as CSV files (2 of them

将ui.R的闪亮变量传递给server.R

我从头开始重新发布这个消息,希望有人能够通过这个学习机会让我获得。 我在下面的Shiny应用程序中将ui.R的变量传递给server.R时遇到了问题。 我也包括global.R。 该文件的一部分会ping我的基于云的MySQL数据库。 我不想在这里分享这个密码; 您可以在这里将查询结果作为CSV文件(其中2个)。 问题在于server.R的第22行。 用代码原样( y = n.emp, ),它按预期工作。 当我用( y = input$quant, )代替它时,代码会中

R Shiny Action Button to Affect Reactive Control

I'd like to plot a histogram of step-data that is show when the App is first run and that bit is working. So is the changing of the bins and the color of the plot density. One of the features I would like to include is the ability for the user to click an actionButton or some other action-toggle to overlay a dnorm-line on the histogram. On or off would be preferable. However, I'm onl

R闪亮的动作按钮来影响无功控制

我想绘制一个步骤数据的直方图,显示应用程序第一次运行时该位是否工作。 所以箱的变化和密度的颜色也是如此。 我希望包括的一个功能是用户可以单击一个actionButton或其他某个动作 - 在直方图上重叠一个dnorm-line。 打开或关闭将是可取的。 不过,我只能在这时获得一次绘制覆盖线的代码。 我尝试在这里使用'isolate'功能,但是无法弄清楚我的代码中的实现。 理想情况下,该图将看起来像(忽略绘图控制的更精细

conditionalPanel in R/shiny

Quick question on conditionalPanel for shiny/R. Using a slightly modified code example from RStudio, consider the following simple shiny app: n <- 200 # Define the UI ui <- bootstrapPage( numericInput('n', 'Number of obs', n), conditionalPanel(condition = "input.n > 20", plotOutput('plot') ), HTML("Bottom") ) # Define the server code server <- function(input, outpu

R / shiny中的条件面板

对于shiny / R,在conditionalPanel上快速提问。 使用来自RStudio的稍微修改的代码示例,请考虑以下简单的闪亮应用程序: n <- 200 # Define the UI ui <- bootstrapPage( numericInput('n', 'Number of obs', n), conditionalPanel(condition = "input.n > 20", plotOutput('plot') ), HTML("Bottom") ) # Define the server code server <- function(input, output) { output$plot <- re

How to load an image in Shiny

I would like to display an image in my shiny app but I can't find the path I have to give. My app structure is the following : App> server.R ui.R wwww> images> image.png And I have the following code : ui <- fluidPage( tags$div(img(src = "www/images/image.png")) ) server <- function(input, output) {} runApp(list(ui = ui, server = server)) It doesn'

如何在Shiny中加载图像

我想在我闪亮的应用程序中显示图像,但我找不到必须提供的路径。 我的应用程序结构如下: App> server.R ui.R wwww> images> image.png 我有以下代码: ui <- fluidPage( tags$div(img(src = "www/images/image.png")) ) server <- function(input, output) {} runApp(list(ui = ui, server = server)) 它不起作用。 我尝试了很多路径的语法,甚至是类似的东西 选项(“shiny.port”

R shiny mainPanel display style and font

I'm learning shiny apps and have some basic questions about tweaking the layout, particularly style and font. I'd be grateful for pointers or explicit answers, thanks! Consider a basic input-output app: the user inputs data in the sidebarPanel and it reactively outputs a result in the mainPanel. How could I format the output table in the mainPanel to look more like the sidebarPanel?

R闪亮的mainPanel显示样式和字体

我正在学习闪亮的应用程序,并且有一些关于调整布局的基本问题,特别是样式和字体。 我会感谢指针或明确的答案,谢谢! 考虑一个基本的输入输出应用程序:用户在sidebarPanel中输入数据,并在mainPanel中反应输出结果。 我如何格式化mainPanel中的输出表,使其看起来更像sidebarPanel? 说一个大小相同的带有彩色背景(也许是另一种颜色)的矩形,数据出现在相似大小的盒子中。 如何控制面板内的字体类型,字体大小和字