小编Hyd*_*dro的帖子

有没有办法来改变首先从属性标签1:3喜欢的东西c(good, bad, ugly)。另外，我想R2为每个方面增加价值。下面是我的代码 - 我尝试了一些东西但没有成功。

DF = data.frame(SUB = rep(1:3, each = 100), Ob = runif(300, 50,100), S1 = runif(300, 75,95), S2 = runif(300, 40,90),
                S3 = runif(300, 35,80),S4 = runif(300, 55,100))
FakeData = gather(DF, key = "Variable", value = "Value", -c(SUB,Ob))

ggplot(FakeData, aes(x = Ob, y = Value))+
  geom_point()+ geom_smooth(method="lm") + facet_grid(Variable ~ SUB,  scales = "free_y")+
  theme_bw()

这是我使用上述代码得到的图。 我尝试了下面的代码来更改 facet_label 但它没有用

ggplot(FakeData, SUB = factor(SUB, levels = c("Good", "Bad","Ugly")), aes(x = Ob, …

我正在尝试创建boxplot一个比较ob与A和B在多个位置（即开始、中间、结束）的Top和Low值（在这种情况下为10%）。我正在尝试使用gather, facet_wrap, grid.arrange,ggplot功能，R但无法将它们放在一起。到目前为止，这是我的代码 - 我将不胜感激。

library(tidyverse)
library(gridExtra)

DF_1 = data.frame(Ob = runif(100, 10,80), A = runif(100, 5, 90), B = runif(100, 3,85), loc = rep("Start",100))
DF_2 = data.frame(Ob = runif(100, 10,80), A = runif(100, 5, 90), B = runif(100, 3,85), loc = rep("Mid",100))
DF_3 = data.frame(Ob = runif(100, 10,80), A = runif(100, 5, 90), B = runif(100, 3,85), loc = …

我有以下内容data.frame，我只想将numeric列乘以一个scalar值。

library(tidyverse)
library(lubridate)

set.seed(123)

D1 <- data.frame(Date = seq(as.Date("2001-01-01"), to= as.Date("2001-01-10"), by="day"),
                 A1= runif(10,1,5),
                 B2 = runif(10,3,6),
                 C9 = runif(10,2,5))

我尝试了以下方法，但它消除了该Date列

D <- D1 %>% 
    select(,c(2:4))*1000

另外，这个Date也删除了该列。

D <- D1 %>% 
  select_if(is.numeric)*1000

是否有任何选项可以保留Date列并进行乘法？

probability of exceedance我正在尝试在 R 中进行计算。这是包含计算超出概率的详细信息和公式的链接。我尝试使用以下示例代码复制该过程，但是，我距离所附的示例绘图还很遥远。有一次，我想出了如何做到这一点 - 然后我想在具有data.frame多个variables.

library(tidyverse)

A = sample(0:5000, 2500)
A = A[order(A, decreasing = TRUE)]
Rank = 1:2500

DF = data.frame(cbind(A,Rank))
DF$Prob =  100*(DF$Rank/(length(DF$Prob+1)))

ggplot(data = DF, aes(x=Prob, y=A))+
  geom_line() + scale_y_continuous(trans = "log10")

这是我想要制作的情节示例