是否可以在dplyr或magrittr链中将所有列名设置为高位或低位？
在下面的示例中,我加载数据,然后使用magrittr管道将其链接到我的dplyr突变.在第4行中我使用了tolower函数,但这是出于不同的目的:使用小写观察创建一个新变量.
mydata <- read.csv('myfile.csv') %>%
mutate(Year = mdy_hms(DATE),
Reference = (REFNUM),
Event = tolower(EVENT)
我显然正在寻找类似的东西,colnames = tolower但知道这不起作用/存在.
我注意到dplyr rename函数,但这不是很有用.
在magrittr中,colname选项是:
set_colnames而不是基础R colnames<-
set_names而不是基础R'names<-
我尝试了很多这些但没有骰子的排列.
显然,这在基础r中非常简单.
names(mydata) <- tolower(names(mydata))
然而,在进入优雅的dplyr/magrittr代码链之前,与dplyr/magrittr哲学似乎不一样,你必须做一个笨重的单线程.
我正在尝试使用闪亮的方法构建一个交互式散点图.使用虹膜数据,我希望用户选择散点图*花瓣与萼片的x和y尺寸,然后输出所选尺寸的简单散点图.非常直截了当.
首先,我需要构建一个允许我将表示维度的字符串传递给ggplot的函数.我做了这个并用静态数据测试了它.工作良好.
接下来,我为花瓣和萼片尺寸定义了两个下拉菜单和两个后续字符串(使用闪亮)(这些是我的x和y轴).
接下来我使用一个switch语句使用shiny的reactive()函数设置两个字符串变量.
这似乎是出问题的地方.
我得到的错误是:错误:无法强制类型'封闭'类型为'字符'类型的向量
我已经采取了一些步骤来调试我的代码.我首先将硬编码维度(例如"Petal.Length")插入到我的代码输出的最后一行$ myplot = renderPlot({myplotfunct(...
这非常有效.情节按照我的预期呈现.
然后我添加了一个调试行来跟踪我传递此绘图函数的字符串的值.答对了.它是空的.它为什么空？好像它应该从UI.r文件中传递一个值.
代码如下.
任何帮助将不胜感激.谢谢!
UI.R
library(shiny)
# Define UI for dataset viewer application
shinyUI(fluidPage(
# Application title
titlePanel("Shiny Text"),
# Sidebar with controls to select a dataset and specify the
# number of observations to view
sidebarLayout(
sidebarPanel(
selectInput("dataset1", "Choose a Sepal Measure:",
choices = c("Sepal Length", "Sepal Width")),
selectInput("dataset2", "Choose a Petal Measure:",
choices = c("Petal Length", "Petal Width"))
),
# Main Scatter Plot
mainPanel(
textOutput("testvar"), …我最近开始使用 dygraph，到目前为止我非常喜欢它。我曾尝试使用它闪亮，但没有取得太大成功。虽然我的脚本没有产生任何错误，但它也没有产生任何图形！
你有没有机会指导我朝着正确的方向前进？
这是我的数据示例：
> head(df2)
date Variety Count Price Value Quantity TotalKg
1 2014-11-06 CRIPPS PINK 80-90 204 3670 18 333
2 2014-11-06 CRIPPS PINK 120-135 181 10150 56 1036
3 2014-11-06 CRIPPS RED 80-90 221 26910 122 2257
4 2014-11-06 CRIPPS RED 100-110 205 22910 112 2072
5 2014-11-06 CRIPPS RED 120-135 193 58950 306 5661
6 2014-11-06 TOPRED 80-90 167 7350 44 814
使用 Variety 和 Count 变量，我想绘制价格随时间变化的图表。
这是我的 ui.R
library(dygraphs)
library(shiny)
shinyUI(fluidPage(
titlePanel("Apples Prices"),
sidebarLayout(
sidebarPanel( …