r - 将单选按钮链接到闪亮的反应数据
问题描述
我正在尝试为我的论文制作一个闪亮的应用程序。在我的论文中,我有许多变量 (16),我正在分析 5 个条件。
在我的应用程序中,我希望有一个带有变量和条件列表的侧面板作为单选按钮。
在我的主面板中,我想要以下输出:
- Plotmeans 图与条件的平均值(我有这部分)
- 所选变量和所选条件的摘要
- 所选变量和所选条件的密度图
- 从 shapiro.test 输出选定变量和选定条件
- shapiro.test 的解释(即正常/不正常)
我可以通过条件轻松地获得绘图,但是在显示其余输出时遇到问题。我为条件引用单选按钮的方式一定有问题,因为在我单击“分析”后,我不断收到错误消息,告诉我找不到我选择的变量。
请查看我的代码,因为我将不胜感激:
#Shiny app to display means, summary, and normality interpretation for each
variable and condition in study 3
library(shiny)
#############################################################################
# Define UI
ui <- fluidPage(
# Application title
titlePanel(
h1("Variable Means by Condition (Study 3)", align = "center", style =
"color:black")),
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
radioButtons(inputId = "var", label = "Select a Variable:",
c("Time from Catch to Lowest COM" = "T0_1",
"Time from Lowest COM to Release" = "T1_2",
"Release Time" = "T0_2",
"Knee Extension at Catch" = "T0_Knee_Ext",
"Hip Extension at Catch" = "T0_Hip_Ext",
"Minimum Ball Height" = "Min_Ball_Ht",
"Ball Height at Lowest COM" = "T1_Ball_Ht",
"Knee Extension at Lowest COM" = "T1_Knee_Ext",
"Hip Extension at Lowest COM" = "T1_Hip_Ext",
"Shoulder Flexion at Release" = "T2_Sh_Flex",
"Elbow Extension at Release" = "T2_Elb_Ext",
"Release Height" = "T2_Rel_Ht",
"Jump Height" = "T2_Jump_Ht",
"Wrist Extension at Follow-Through" = "T2_Wr_Ext",
"Accuracy" = "ACCURACY",
"Overall Performance" = "Acc.Spd")),
#Add radio buttons to choose a condition
radioButtons(inputId = "cond", label = "Select a Condition:",
c("Condition 1" = 1,
"Condition 2" = 2,
"Condition 3" = 3,
"Condition 4" = 4,
"Condition 5" = 5)),
#Add action button
actionButton("goButton","Analyze")),
# Show a plot of the mean of the selected variable
mainPanel(
#create a plot for selected variable
plotOutput("mean_plot"),
#Get summary for selected variable and selected condition
verbatimTextOutput("summ"),
#Get density plot for selected variable and selected condition
plotOutput("dens_plot"),
#Calculate shapiro wilk test for selected variable and selected
condition
verbatimTextOutput("shap"),
#Return if the selected variable and selected condition is normal or
not
verbatimTextOutput("norm"))
)
)
####################################################################
# Define server logic required to draw plotmeans
server <- function(input, output) {
#import data
library(readr)
dt <- read_csv("dt.csv")
dt$CONDITIONf <- factor(dt$CONDITION, levels = c(1,2,3,4,5), labels =
c("Normal","None","Wrist","Elb. Ht.","Rim"))
#subset data on various inputs from ui
subsetData <- reactive({
new_data <- dt[,CONDITION == input$cond]
return(new_data)
})
#After clicking goButton....
observeEvent(input$goButton, {
#Create plot
output$mean_plot <- renderPlot({
#using gplots plotmeans
library(gplots)
p <- plotmeans(get(input$var) ~ CONDITIONf, data = dt, connect = FALSE,
n.label = FALSE,
mean.labels = TRUE, digits = 2, xlab = "Condition", ylab =
"Mean", main =
"Variable Means by Condition", pch = " ")})
#Get summary for selected variable and condition
#Create density plot
output$dens_plot <- renderPlot({
hist(subsetData[,get(input$var)])
})
#Run shapiro wilk test
output$shap <- renderPrint({
shapiro.test(subsetData[,get(input$var)])
})
#Print interpretation of shapiro.test (ifelse(p-value from shapiro.test <
0.05, "Not Normal", "Normal")
output$norm <- renderPrint({
ifelse(output$shap < 0.05, return("Not Normal", return("Normal")))
})
})
}
#############################################################################
# Run the application
shinyApp(ui = ui, server = server)
如果您需要数据集,请与我联系,我将发送给您。提前致谢!
运行后:
dplot(head(dt, 20))
在我的输出中,我得到:
structure(list(X1 = 1:20, PRIM_KEY = 1:20, NAME = c("Andrew Grajeda",
"Andrew Grajeda", "Andrew Grajeda", "Andrew Grajeda", "Andrew Grajeda",
"Andrew Grajeda", "Andrew Grajeda", "Andrew Grajeda", "Andrew Grajeda",
"Andrew Grajeda", "Andrew Grajeda", "Andrew Grajeda", "Andrew Grajeda",
"Andrew Grajeda", "Andrew Grajeda", "Andrew Grajeda", "Andrew Grajeda",
"Andrew Grajeda", "Andrew Grajeda", "Andrew Grajeda"), SUBJECT = c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L), BIRTHDAY = structure(c(11860, 11860, 11860, 11860,
11860, 11860, 11860, 11860, 11860, 11860, 11860, 11860, 11860,
11860, 11860, 11860, 11860, 11860, 11860, 11860), class = "Date"),
TODAY_DATE = structure(c(17616, 17616, 17616, 17616, 17616,
17616, 17616, 17616, 17616, 17616, 17616, 17616, 17616, 17616,
17616, 17616, 17616, 17616, 17616, 17616), class = "Date"),
AGE = c(15.7698630136986, 15.7698630136986, 15.7698630136986,
15.7698630136986, 15.7698630136986, 15.7698630136986,
15.7698630136986,
15.7698630136986, 15.7698630136986, 15.7698630136986,
15.7698630136986,
15.7698630136986, 15.7698630136986, 15.7698630136986,
15.7698630136986,
15.7698630136986, 15.7698630136986, 15.7698630136986,
15.7698630136986,
15.7698630136986), YOE = c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), DAILY_SHOTS = c(50L,
50L, 50L, 50L, 50L, 50L, 50L, 50L, 50L, 50L, 50L, 50L, 50L,
50L, 50L, 50L, 50L, 50L, 50L, 50L), CLIP = c("00_1", "00_1",
"00_1", "00_1", "00_1", "00_1", "00_1", "00_1", "00_1", "00_1",
"00_1", "00_1", "00_1", "00_1", "00_1", "00_1", "00_1", "00_1",
"00_1", "00_1"), HEIGHT = c(1.73, 1.73, 1.73, 1.73, 1.73,
1.73, 1.73, 1.73, 1.73, 1.73, 1.73, 1.73, 1.73, 1.73, 1.73,
1.73, 1.73, 1.73, 1.73, 1.73), Group = c(1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L), CONDITION = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), SHOT = c(1L, 2L,
3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 1L, 2L, 3L, 4L, 5L, 6L,
7L, 8L, 9L, 10L), ACCURACY = c(4.5, 4.5, 4, 4.5, 4, 4.5,
4.5, 4, 3.5, 4.5, 3, 2, 2, 2, 3, 4.5, 4.5, 2, 3, 3), Make = c(1L,
1L, 0L, 1L, 0L, 1L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 1L,
1L, 0L, 0L, 0L), T0 = structure(c(-2209075175, -2209075170,
-2209075164, -2209075158, -2209075153, -2209075149, -2209075143,
-2209075136, -2209075130, -2209075126, -2209075040, -2209075035,
-2209075030, -2209075025, -2209075020, -2209075015, -2209075010,
-2209075006, -2209075001, -2209074998), class = c("POSIXct",
"POSIXt"), tzone = "UTC"), T0_Knee_Ext = c(169.7, 165.7,
169.3, 173, 171.3, 168.7, 164.1, 165.7, 166.8, 165.7, 164,
157.4, 157.4, 157.4, 147.2, 147.2, 150, 149.9, 152, 149),
T0_Hip_Ext = c(172.6, 172.6, 172.6, 176.7, 171.7, 171.7,
161.1, 161.1, 168.9, 171.7, 163.7, 160.9, 160.9, 160.9, 154.5,
156.2, 156.2, 156.2, 156.5, 156.2), Min_Ball_Ht = c(0.93,
0.94, 0.96, 0.92, 0.95, 0.94, 0.94, 0.93, 0.94, 0.93, 0.8,
0.81, 0.8, 0.8, 0.81, 0.81, 0.8, 0.8, 0.81, 0.8), T1 =
structure(c(-2209075175,
-2209075169, -2209075163, -2209075157, -2209075152, -2209075148,
-2209075143, -2209075135, -2209075129, -2209075125, -2209075039,
-2209075034, -2209075029, -2209075025, -2209075020, -2209075015,
-2209075010, -2209075005, -2209075001, -2209074997), class =
c("POSIXct",
"POSIXt"), tzone = "UTC"), T0_1 = c(0.601, 0.534, 0.601,
0.567, 0.601, 0.601, 0.584, 0.6, 0.567, 0.6, 0.422, 0.372,
0.339, 0.355, 0.288, 0.272, 0.339, 0.289, 0.222, 0.289),
T1_Ball_Ht = c(1.04, 1.03, 1.02, 1.03, 1.04, 1.05, 1.04,
1.03, 1.03, 1.04, 0.97, 0.94, 0.95, 0.96, 0.97, 0.96, 0.95,
0.94, 0.95, 0.96), T1_Knee_Ext = c(116.3, 119.6, 122.9, 119.2,
127.4, 126.9, 134.4, 129, 134.5, 134.4, 112.3, 116.4, 122.3,
119.7, 121.6, 121.6, 117.7, 117.7, 117.7, 117.7), T1_Hip_Ext = c(142,
138.4, 138.4, 138.4, 142.9, 147.9, 147.9, 147.9, 147.9, 147.9,
133.5, 133.5, 141.5, 148.2, 145.4, 145.4, 145.4, 145.4, 145.4,
145.4), T2 = structure(c(-2209075174, -2209075169, -2209075163,
-2209075157, -2209075152, -2209075148, -2209075142, -2209075135,
-2209075129, -2209075125, -2209075039, -2209075034, -2209075029,
-2209075025, -2209075020, -2209075014, -2209075010, -2209075005,
-2209075001, -2209074997), class = c("POSIXct", "POSIXt"), tzone =
"UTC"),
T1_2 = c(0.267, 0.3, 0.3, 0.267, 0.266, 0.283, 0.267, 0.267,
0.3, 0.3, 0.267, 0.267, 0.283, 0.217, 0.267, 0.333, 0.284,
0.267, 0.334, 0.267), T0_2 = c(0.868, 0.834, 0.901, 0.834,
0.867, 0.884, 0.851, 0.867, 0.867, 0.9, 0.689, 0.639, 0.622,
0.572, 0.555, 0.605, 0.623, 0.556, 0.556, 0.556), T2_Sh_Flex =
c(137.3,
140.8, 134.2, 138.6, 138, 138.6, 138.6, 134.2, 134.2, 140.8,
138, 138, 136, 136, 136, 137, 137, 136, 136, 136), T2_Elb_Ext =
c(179.8,
179.8, 179, 179, 178.5, 179.4, 179.2, 179, 178.9, 179.8,
174.9, 174.9, 174.9, 174.9, 174.9, 175, 174.8, 174.9, 175,
174.8), T2_Rel_Ht = c(2.17, 2.18, 2.17, 2.18, 2.17, 2.17,
2.18, 2.17, 2.18, 2.17, 2.17, 2.17, 2.18, 2.17, 2.17, 2.18,
2.17, 2.18, 2.18, 2.17), T2_Jump_Ht = c(0.05, 0.06, 0.05,
0.06, 0.05, 0.05, 0.06, 0.05, 0.06, 0.05, 0.05, 0.05, 0.06,
0.05, 0.05, 0.06, 0.05, 0.06, 0.06, 0.05), T2_Wr_Ext = c(109.3,
106.8, 106.8, 106.8, 107.9, 109.1, 106.8, 107.8, 107, 107.5,
120, 113.5, 107.9, 100.5, 100.5, 100.5, 100.5, 100.5, 100.5,
100.5), CONDITIONf = structure(c(1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label =
c("Normal",
"None", "Wrist", "Elb. Ht.", "Rim"), class = "factor"), Makef =
c("Make",
"Make", "Miss", "Make", "Miss", "Make", "Make", "Miss", "Make",
"Make", "Miss", "Miss", "Miss", "Miss", "Miss", "Make", "Make",
"Miss", "Miss", "Miss"), ACCURACYf = c("Inside Rim - Make",
"Inside Rim - Make", "Inside Rim - Miss", "Inside Rim - Make",
"Inside Rim - Miss", "Inside Rim - Make", "Inside Rim - Make",
"Inside Rim - Miss", "Top Rim - Make", "Inside Rim - Make",
"Top Rim - Miss", "Outside Rim", "Outside Rim", "Outside Rim",
"Top Rim - Miss", "Inside Rim - Make", "Inside Rim - Make",
"Outside Rim", "Top Rim - Miss", "Top Rim - Miss"), ACCURACYnorm =
c(0.875,
0.875, 0.75, 0.875, 0.75, 0.875, 0.875, 0.75, 0.625, 0.875,
0.5, 0.25, 0.25, 0.25, 0.5, 0.875, 0.875, 0.25, 0.5, 0.5),
T0_2norm = c(0.317038102084831, 0.292595255212078, 0.340762041696621,
0.292595255212078, 0.316319194823868, 0.328540618260244,
0.304816678648454, 0.316319194823868, 0.316319194823868,
0.340043134435658, 0.188353702372394, 0.152408339324227,
0.14018691588785, 0.104241552839684, 0.092020129403307,
0.127965492451474,
0.140905823148814, 0.0927390366642703, 0.0927390366642703,
0.0927390366642703), T0_2norm.inv = c(0.682961897915169,
0.707404744787922, 0.659237958303379, 0.707404744787922,
0.683680805176132, 0.671459381739756, 0.695183321351546,
0.683680805176132, 0.683680805176132, 0.659956865564342,
0.811646297627606, 0.847591660675773, 0.85981308411215,
0.895758447160316,
0.907979870596693, 0.872034507548526, 0.859094176851186,
0.90726096333573, 0.90726096333573, 0.90726096333573), Acc.Spd =
c(1.55796189791517,
1.58240474478792, 1.40923795830338, 1.58240474478792,
1.43368080517613,
1.54645938173976, 1.57018332135155, 1.43368080517613,
1.30868080517613,
1.53495686556434, 1.31164629762761, 1.09759166067577,
1.10981308411215,
1.14575844716032, 1.40797987059669, 1.74703450754853,
1.73409417685119,
1.15726096333573, 1.40726096333573, 1.40726096333573)), .Names =
c("X1",
"PRIM_KEY", "NAME", "SUBJECT", "BIRTHDAY", "TODAY_DATE", "AGE",
"YOE", "DAILY_SHOTS", "CLIP", "HEIGHT", "Group", "CONDITION",
"SHOT", "ACCURACY", "Make", "T0", "T0_Knee_Ext", "T0_Hip_Ext",
"Min_Ball_Ht", "T1", "T0_1", "T1_Ball_Ht", "T1_Knee_Ext", "T1_Hip_Ext",
"T2", "T1_2", "T0_2", "T2_Sh_Flex", "T2_Elb_Ext", "T2_Rel_Ht",
"T2_Jump_Ht", "T2_Wr_Ext", "CONDITIONf", "Makef", "ACCURACYf",
"ACCURACYnorm", "T0_2norm", "T0_2norm.inv", "Acc.Spd"), row.names = c(NA,
-20L), class = c("tbl_df", "tbl", "data.frame"))
解决方案
您的应用程序表明您没有牢牢掌握 Shiny 的基础知识,并且应该阅读教程(再次,如果您已经掌握)。
- 不要在 s 中定义
reactive
s 或render*
sobserver
,使用eventReactive
s 等待事件(如点击按钮),req
等待变量和条件 - 当你定义 a
reactive
它是一个函数,而不是一个数据对象,所以你必须用括号调用它 - 在服务器函数内部
global.R
或外部加载一次性数据集app.R
这是一个工作应用程序:
library("shiny")
library("readr")
library("gplots")
# Data Input --------------------------------------------------------------
dt <-
structure(
list(
X1 = 1:20,
PRIM_KEY = 1:20,
NAME = c(
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda",
"Andrew Grajeda"
),
SUBJECT = c(
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L
),
BIRTHDAY = structure(
c(
11860,
11860,
11860,
11860,
11860,
11860,
11860,
11860,
11860,
11860,
11860,
11860,
11860,
11860,
11860,
11860,
11860,
11860,
11860,
11860
),
class = "Date"
),
TODAY_DATE = structure(
c(
17616,
17616,
17616,
17616,
17616,
17616,
17616,
17616,
17616,
17616,
17616,
17616,
17616,
17616,
17616,
17616,
17616,
17616,
17616,
17616
),
class = "Date"
),
AGE = c(
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986,
15.7698630136986
),
YOE = c(
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L
),
DAILY_SHOTS = c(
50L,
50L,
50L,
50L,
50L,
50L,
50L,
50L,
50L,
50L,
50L,
50L,
50L,
50L,
50L,
50L,
50L,
50L,
50L,
50L
),
CLIP = c(
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1",
"00_1"
),
HEIGHT = c(
1.73,
1.73,
1.73,
1.73,
1.73,
1.73,
1.73,
1.73,
1.73,
1.73,
1.73,
1.73,
1.73,
1.73,
1.73,
1.73,
1.73,
1.73,
1.73,
1.73
),
Group = c(
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L
),
CONDITION = c(
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L
),
SHOT = c(
1L,
2L,
3L,
4L,
5L,
6L,
7L,
8L,
9L,
10L,
1L,
2L,
3L,
4L,
5L,
6L,
7L,
8L,
9L,
10L
),
ACCURACY = c(4.5, 4.5, 4, 4.5, 4, 4.5,
4.5, 4, 3.5, 4.5, 3, 2, 2, 2, 3, 4.5, 4.5, 2, 3, 3),
Make = c(
1L,
1L,
0L,
1L,
0L,
1L,
1L,
0L,
1L,
1L,
0L,
0L,
0L,
0L,
0L,
1L,
1L,
0L,
0L,
0L
),
T0 = structure(
c(
-2209075175,
-2209075170,-2209075164,
-2209075158,
-2209075153,
-2209075149,
-2209075143,-2209075136,
-2209075130,
-2209075126,
-2209075040,
-2209075035,-2209075030,
-2209075025,
-2209075020,
-2209075015,
-2209075010,-2209075006,
-2209075001,
-2209074998
),
class = c("POSIXct",
"POSIXt"),
tzone = "UTC"
),
T0_Knee_Ext = c(
169.7,
165.7,
169.3,
173,
171.3,
168.7,
164.1,
165.7,
166.8,
165.7,
164,
157.4,
157.4,
157.4,
147.2,
147.2,
150,
149.9,
152,
149
),
T0_Hip_Ext = c(
172.6,
172.6,
172.6,
176.7,
171.7,
171.7,
161.1,
161.1,
168.9,
171.7,
163.7,
160.9,
160.9,
160.9,
154.5,
156.2,
156.2,
156.2,
156.5,
156.2
),
Min_Ball_Ht = c(
0.93,
0.94,
0.96,
0.92,
0.95,
0.94,
0.94,
0.93,
0.94,
0.93,
0.8,
0.81,
0.8,
0.8,
0.81,
0.81,
0.8,
0.8,
0.81,
0.8
),
T1 =
structure(
c(
-2209075175,-2209075169,
-2209075163,
-2209075157,
-2209075152,
-2209075148,-2209075143,
-2209075135,
-2209075129,
-2209075125,
-2209075039,-2209075034,
-2209075029,
-2209075025,
-2209075020,
-2209075015,-2209075010,
-2209075005,
-2209075001,
-2209074997
),
class =
c("POSIXct",
"POSIXt"),
tzone = "UTC"
),
T0_1 = c(
0.601,
0.534,
0.601,
0.567,
0.601,
0.601,
0.584,
0.6,
0.567,
0.6,
0.422,
0.372,
0.339,
0.355,
0.288,
0.272,
0.339,
0.289,
0.222,
0.289
),
T1_Ball_Ht = c(
1.04,
1.03,
1.02,
1.03,
1.04,
1.05,
1.04,
1.03,
1.03,
1.04,
0.97,
0.94,
0.95,
0.96,
0.97,
0.96,
0.95,
0.94,
0.95,
0.96
),
T1_Knee_Ext = c(
116.3,
119.6,
122.9,
119.2,
127.4,
126.9,
134.4,
129,
134.5,
134.4,
112.3,
116.4,
122.3,
119.7,
121.6,
121.6,
117.7,
117.7,
117.7,
117.7
),
T1_Hip_Ext = c(
142,
138.4,
138.4,
138.4,
142.9,
147.9,
147.9,
147.9,
147.9,
147.9,
133.5,
133.5,
141.5,
148.2,
145.4,
145.4,
145.4,
145.4,
145.4,
145.4
),
T2 = structure(
c(
-2209075174,
-2209075169,
-2209075163,-2209075157,
-2209075152,
-2209075148,
-2209075142,
-2209075135,-2209075129,
-2209075125,
-2209075039,
-2209075034,
-2209075029,-2209075025,
-2209075020,
-2209075014,
-2209075010,
-2209075005,-2209075001,
-2209074997
),
class = c("POSIXct", "POSIXt"),
tzone =
"UTC"
),
T1_2 = c(
0.267,
0.3,
0.3,
0.267,
0.266,
0.283,
0.267,
0.267,
0.3,
0.3,
0.267,
0.267,
0.283,
0.217,
0.267,
0.333,
0.284,
0.267,
0.334,
0.267
),
T0_2 = c(
0.868,
0.834,
0.901,
0.834,
0.867,
0.884,
0.851,
0.867,
0.867,
0.9,
0.689,
0.639,
0.622,
0.572,
0.555,
0.605,
0.623,
0.556,
0.556,
0.556
),
T2_Sh_Flex =
c(
137.3,
140.8,
134.2,
138.6,
138,
138.6,
138.6,
134.2,
134.2,
140.8,
138,
138,
136,
136,
136,
137,
137,
136,
136,
136
),
T2_Elb_Ext =
c(
179.8,
179.8,
179,
179,
178.5,
179.4,
179.2,
179,
178.9,
179.8,
174.9,
174.9,
174.9,
174.9,
174.9,
175,
174.8,
174.9,
175,
174.8
),
T2_Rel_Ht = c(
2.17,
2.18,
2.17,
2.18,
2.17,
2.17,
2.18,
2.17,
2.18,
2.17,
2.17,
2.17,
2.18,
2.17,
2.17,
2.18,
2.17,
2.18,
2.18,
2.17
),
T2_Jump_Ht = c(
0.05,
0.06,
0.05,
0.06,
0.05,
0.05,
0.06,
0.05,
0.06,
0.05,
0.05,
0.05,
0.06,
0.05,
0.05,
0.06,
0.05,
0.06,
0.06,
0.05
),
T2_Wr_Ext = c(
109.3,
106.8,
106.8,
106.8,
107.9,
109.1,
106.8,
107.8,
107,
107.5,
120,
113.5,
107.9,
100.5,
100.5,
100.5,
100.5,
100.5,
100.5,
100.5
),
CONDITIONf = structure(
c(
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
1L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L,
2L
),
.Label =
c("Normal",
"None", "Wrist", "Elb. Ht.", "Rim"),
class = "factor"
),
Makef =
c(
"Make",
"Make",
"Miss",
"Make",
"Miss",
"Make",
"Make",
"Miss",
"Make",
"Make",
"Miss",
"Miss",
"Miss",
"Miss",
"Miss",
"Make",
"Make",
"Miss",
"Miss",
"Miss"
),
ACCURACYf = c(
"Inside Rim - Make",
"Inside Rim - Make",
"Inside Rim - Miss",
"Inside Rim - Make",
"Inside Rim - Miss",
"Inside Rim - Make",
"Inside Rim - Make",
"Inside Rim - Miss",
"Top Rim - Make",
"Inside Rim - Make",
"Top Rim - Miss",
"Outside Rim",
"Outside Rim",
"Outside Rim",
"Top Rim - Miss",
"Inside Rim - Make",
"Inside Rim - Make",
"Outside Rim",
"Top Rim - Miss",
"Top Rim - Miss"
),
ACCURACYnorm =
c(
0.875,
0.875,
0.75,
0.875,
0.75,
0.875,
0.875,
0.75,
0.625,
0.875,
0.5,
0.25,
0.25,
0.25,
0.5,
0.875,
0.875,
0.25,
0.5,
0.5
),
T0_2norm = c(
0.317038102084831,
0.292595255212078,
0.340762041696621,
0.292595255212078,
0.316319194823868,
0.328540618260244,
0.304816678648454,
0.316319194823868,
0.316319194823868,
0.340043134435658,
0.188353702372394,
0.152408339324227,
0.14018691588785,
0.104241552839684,
0.092020129403307,
0.127965492451474,
0.140905823148814,
0.0927390366642703,
0.0927390366642703,
0.0927390366642703
),
T0_2norm.inv = c(
0.682961897915169,
0.707404744787922,
0.659237958303379,
0.707404744787922,
0.683680805176132,
0.671459381739756,
0.695183321351546,
0.683680805176132,
0.683680805176132,
0.659956865564342,
0.811646297627606,
0.847591660675773,
0.85981308411215,
0.895758447160316,
0.907979870596693,
0.872034507548526,
0.859094176851186,
0.90726096333573,
0.90726096333573,
0.90726096333573
),
Acc.Spd =
c(
1.55796189791517,
1.58240474478792,
1.40923795830338,
1.58240474478792,
1.43368080517613,
1.54645938173976,
1.57018332135155,
1.43368080517613,
1.30868080517613,
1.53495686556434,
1.31164629762761,
1.09759166067577,
1.10981308411215,
1.14575844716032,
1.40797987059669,
1.74703450754853,
1.73409417685119,
1.15726096333573,
1.40726096333573,
1.40726096333573
)
),
.Names =
c(
"X1",
"PRIM_KEY",
"NAME",
"SUBJECT",
"BIRTHDAY",
"TODAY_DATE",
"AGE",
"YOE",
"DAILY_SHOTS",
"CLIP",
"HEIGHT",
"Group",
"CONDITION",
"SHOT",
"ACCURACY",
"Make",
"T0",
"T0_Knee_Ext",
"T0_Hip_Ext",
"Min_Ball_Ht",
"T1",
"T0_1",
"T1_Ball_Ht",
"T1_Knee_Ext",
"T1_Hip_Ext",
"T2",
"T1_2",
"T0_2",
"T2_Sh_Flex",
"T2_Elb_Ext",
"T2_Rel_Ht",
"T2_Jump_Ht",
"T2_Wr_Ext",
"CONDITIONf",
"Makef",
"ACCURACYf",
"ACCURACYnorm",
"T0_2norm",
"T0_2norm.inv",
"Acc.Spd"
),
row.names = c(NA,-20L),
class = c("tbl_df", "tbl", "data.frame")
)
#import data
# dt <- read_csv("dt.csv")
dt$CONDITIONf <- factor(dt$CONDITION, levels = c(1,2,3,4,5), labels =
c("Normal","None","Wrist","Elb. Ht.","Rim"))
# UI --------------------------------------------------------------
# Define UI
ui <- fluidPage(
# Application title
titlePanel(
h1("Variable Means by Condition (Study 3)", align = "center", style =
"color:black")),
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
radioButtons(inputId = "var", label = "Select a Variable:",
c("Time from Catch to Lowest COM" = "T0_1",
"Time from Lowest COM to Release" = "T1_2",
"Release Time" = "T0_2",
"Knee Extension at Catch" = "T0_Knee_Ext",
"Hip Extension at Catch" = "T0_Hip_Ext",
"Minimum Ball Height" = "Min_Ball_Ht",
"Ball Height at Lowest COM" = "T1_Ball_Ht",
"Knee Extension at Lowest COM" = "T1_Knee_Ext",
"Hip Extension at Lowest COM" = "T1_Hip_Ext",
"Shoulder Flexion at Release" = "T2_Sh_Flex",
"Elbow Extension at Release" = "T2_Elb_Ext",
"Release Height" = "T2_Rel_Ht",
"Jump Height" = "T2_Jump_Ht",
"Wrist Extension at Follow-Through" = "T2_Wr_Ext",
"Accuracy" = "ACCURACY",
"Overall Performance" = "Acc.Spd")),
#Add radio buttons to choose a condition
radioButtons(inputId = "cond", label = "Select a Condition:",
c("Condition 1" = 1,
"Condition 2" = 2,
"Condition 3" = 3,
"Condition 4" = 4,
"Condition 5" = 5))),
# Show a plot of the mean of the selected variable
mainPanel(
#create a plot for selected variable
plotOutput("mean_plot"),
#Get summary for selected variable and selected condition
verbatimTextOutput("summ"),
#Get density plot for selected variable and selected condition
plotOutput("dens_plot"),
#Calculate shapiro wilk test for selected variable and selected condition
verbatimTextOutput("shap"),
#Return if the selected variable and selected condition is normal or not
verbatimTextOutput("norm"))
)
)
# Server --------------------------------------------------------------
# Define server logic required to draw plotmeans
server <- function(input, output) {
#subset data on various inputs from ui
subsetData <- reactive({
# subset the data with the selected condition
dt[dt$CONDITION == input$cond, ]
})
variableData <- reactive({
var_dat <- subsetData()[[input$var]]
# make sure there is actually something to plot
shiny::validate(
need(length(var_dat) >= 3, "Not enough data (need at least 3 points) found for that condition and variable combination!")
)
var_dat
})
variableShapiro <- reactive({
# return the object as a reactive
shapiro.test(variableData())
})
#Create plot
output$mean_plot <- renderPlot({
input$goButton
#using gplots plotmeans
# use 'isolate' here to prevent the plot from changing when the input 'var'
# changes, only want to change when button is clicked
plot_formula <- as.formula(paste(isolate(input$var), "CONDITIONf", sep = "~"))
plotmeans(
formula = plot_formula
, data = dt
, connect = FALSE
, n.label = FALSE
, mean.labels = TRUE
, digits = 2
, xlab = "Condition"
, ylab = "Mean"
, main = "Variable Means by Condition"
, pch = " "
)
})
output$dens_plot <- renderPlot({
#Create density plot
hist(variableData())
})
#Run shapiro wilk test
output$shap <- renderPrint({
variableShapiro()
})
output$norm <- renderPrint({
ifelse(variableShapiro()$p.value < 0.05
, "Reject the Null Hypothesis: Evidence found that the distribution is not Normal"
, "Failed to Reject the Null Hypothesis: No evidence found that the distribution is not Normal")
})
}
# Run--------------------------------------------------------------
# Run the application
shinyApp(ui = ui, server = server)
推荐阅读
- speech-recognition - 我有一个单词或句子,有什么方法/开源包可以找到用户说出那个单词的概率
- python - 什么时候使用 Python 省略号优于“通过”?
- sql - 使进一步的列数据唯一的约束
- c# - XML cdata 部分中的内容在 mozilla 中显示没有 cdata 标记
- domain-driven-design - 事件风暴 | 命令 | 验证 | 规则 | 让它可见
- c# - 如何通过引用C#中的另一个txt文件来匹配项目的2列
- android - 找不到flutter生成的activity
- angular - ionic 4 防止/禁用设备硬件后退按钮
- xamarin - iOS 上的 Xamarin.UITest:第二次和后续测试作为所有应用程序都失败。
抛出异常 - android - 我可以在后台处理没有数据字段的 FCM 通知消息吗?