小编Rui*_*das的帖子

我正在尝试编写 R 代码

1. 创建一个新变量
2. 仅当 METRO=0 时才填充该变量
3. 填充的值是“1”和“2”值的随机分配。

我试过这样的事情，但没有奏效：

iPUMS_2016 <- mutate (iPUMS_2016, metrounk = ifelse(METRO==0,mutate(rand_int=sample.int(n())) ))

我有一系列要绘制的图表，我想将我公司品牌的颜色用于所有图表。我对每一个十六进制数，但不是写出来的那些对每个情节，我想使用颜色的名字例如compplum，compyellow，compgreen等我怎样才能集

compplum = "#6C217E"

在我的脚本的开头，以便以后我可以只写colour = "compplum"而不是colour = "#6C217E"?

我不确定我是否错过了其他地方的解释，但我需要一些帮助将月份编号（例如 1、2、3）更改为月份名称（例如一月、二月、三月）。

目前，该图在 x 轴上打印月份的数字，我希望它显示月份的名称。

我确实尝试了一些项目，但列中始终为空。

下面是我当前的代码：

install.packages("Stat2Data")
library(Stat2Data)
data("CO2Hawaii")

select(CO2Hawaii)

hawaiiGraph <- 
  ggplot(
    data = CO2Hawaii, 
    aes(
      x = Month, 
      y = CO2)
    ) +
  geom_line(
    aes(group = Year)
    ) +
  theme(axis.text.x = element_text(angle = 55, hjust = 1)
    ) +
  ggtitle("CO2 Levels in Hawaii Over Time")
  
hawaiiGraph

我真的很感谢任何帮助。

我在 R 中从 HTTPS 下载数据时遇到问题，我尝试使用curl，但它不起作用。

URL <- "https://github.com/Bitakhparsa/Capstone/blob/0850c8f65f74c58e45f6cdb2fc6d966e4c160a78/Plant_1_Generation_Data.csv"

options('download.file.method'='curl')
download.file(URL, destfile = "./data.csv", method="auto")

我使用该代码下载了 CSV 文件，但当我检查数据时格式发生了变化。所以没有正确下载。请有人帮助我吗？

我正在使用 tidyverse 在 R 中执行数据分析和清理。我有一个包含 23 列的数据框，其中包含值“NO”、“STEADY”、“UP”和“down”。我想将这 23 列中的所有值在“NO”、“STEADY”的情况下更改为 0，在其他情况下更改为 1。

我所做的是，我按名称键创建了一个列表，其中保留了所有列，之后我使用 for 循环、ifelse 语句和 mutate。

请看下面的代码

# Column names are kept in the list by name keys

keys = c('metformin', 'repaglinide', 'nateglinide', 'chlorpropamide', 'glimepiride', 
'glipizide', 'glyburide', 'pioglitazone', 'rosiglitazone', 'acarbose', 'miglitol', 
'insulin', 'glyburide-metformin', 'tolazamide', 'metformin-pioglitazone',
'metformin-rosiglitazone', 'glimepiride-pioglitazone', 'glipizide-metformin', 
'troglitazone', 'tolbutamide', 'acetohexamide')

之后，我使用以下代码来获得所需的结果：

for (col in keys){
  Dataset = Dataset %>%
    mutate(col = ifelse(col %in% c('No','Steady'),0,1)) }

我期待它会进行我需要的更改，但此后什么也没有发生。（没有错误消息，也没有期望的结果）

之后，我进一步研究并执行了以下代码

for (col in keys){
 print(col)}

它给我列表的元素作为字符，例如“二甲双胍”

所以，我想 - 可能这就是问题所在。因此，我使用下面的代码将键转换为符号：

keys_new = sym(keys) …

我有类似的东西：

df<-data.frame(group=c(1, 1, 1, 1,1,2, 2, 2, 2), 
               date=c("2000-01-01 11:00:00", "2000-01-03 11:00:00", "2000-01-04 11:20:00", "2000-01-04 14:20:00", "2000-01-05 11:40:00", "2000-01-09 12:20:00", "2000-01-09 13:20:00", "2000-01-10 12:20:00", "2000-01-12 16:20:00"))

  group                date
1     1 2000-01-01 11:00:00
2     1 2000-01-03 11:00:00
3     1 2000-01-04 11:20:00
4     1 2000-01-04 14:20:00
5     1 2000-01-05 11:40:00
6     2 2000-01-09 12:20:00
7     2 2000-01-09 13:20:00
8     2 2000-01-10 12:20:00
9     2 2000-01-12 16:20:00

我想制作许多列，指示日期后 24 小时、48 小时等（例如）：

df%>%mutate(first=date+86400, second=date+172800, third=date+259200) 

等等等等，我在几秒钟内添加一天，但这非常耗时（如果我想要数百列）。我假设有一种方法可以迭代地执行此操作。

谢谢，

我有一个列表列表，每个列表的格式如下：

list( name = 'foo',
       type = 'bar',
       attributes= list(
         list(name='color', value='blue'  ),
         list(name='batch', value=123),
         list(name='is_available', value='true')  )
       )

即具有属性的名称和值对。我如何将其转换为这种格式

list( name = 'foo',
       type = 'bar',
       attributes= list(
         color='blue' ,
         batch=123,
         is_available=TRUE )
)

最好以某种tidyverse方式。

我是 R 新手，我正在尝试将绘图转换为 ggplot。

plot(res$s, type="n", main=title)  
print(lines(res$s)) 

res$s 输出

2014-02-14 51.8460                                                         
2014-02-14 44.5080  

我正在尝试制作一个饼图来分解 3 个不同类别之间的值拆分（是的，我知道堆叠条形图会更好，但我真的没有选择）。我想出了如何在堆积条形图上使用 +coord_polar 制作饼图，并隐藏刻度/轴标签，但我需要在饼图的每个切片中包含实际值以及总数的百分比，并且我不知道该怎么做。这是我正在使用的代码（我使用的数据是机密的，所以我用一些模拟数据替换了它）。

library(ggplot2)

simuldata <- data.frame(Category = LETTERS[1:3], 
                        value = c(196, 149,127))

piechart <- ggplot(simuldata, aes(x="", y=value, fill=Category)) +
  geom_bar(width=1, stat="identity") +
  coord_polar("y", start=0) +
  xlab("") +
  ylab("Value") +
  theme(axis.text.x=element_blank(),axis.ticks.x=element_blank())

piechart

我将如何将值和百分比添加到每个切片？

我有一个导入 R 的评论列表。以下是一些评论如何导入的示例 -

9. This is some string number 1
9This is some string number 2
9 This is some string number 3
9-This is some string number 4
67-68 This is some string number 5

注意我将评论保存到一个名为 some_str

我的目标是在行首打印出没有数字的每一行。像这样 -

This is some string number 1
This is some string number 2
This is some string number 3
This is some string number 4
This is some string number 5

我使用下面的代码来处理9. This is some string number 1上面的第一行 …