小编Mus*_*Guy的帖子

我想知道如何创建一个方法,它将一个ArrayList of Integers(ArrayList)作为参数,然后显示ArrayList的内容？

我有一些代码生成一些随机数并用结果填充ArrayList,但是在尝试创建这个特定方法时,我在eclipse中一直有错误标记.

这是我到目前为止:

public void showArray(ArrayList<Integer> array){

    return;

}

我知道这是非常基本的,但我不确定如何接近它 - 它可能是如下所示吗？

public void showArray(ArrayList<Integer> array){

    Arrays.toString(array);

}

任何帮助将不胜感激.

谢谢.

我用Java编写了一些代码来测试两种解决方案的适用性.

我希望比较两种解决方案并保持最佳适应性并丢弃另一种解决方案.

例如:

if(fitness1 < fitness2)
    keep fitness1 and discard/ignore fitness2
else
    keep fitness2 and discard/ignore fitness1

我将如何实现这一目标？最终我希望有一个最佳健身水平的列表(大小n).我想我必须在每次迭代中将最佳适应度添加到某种类型的列表中？

我有一个facet_grid设置显示基于他们的头衔的泰坦尼克号上的人的生存率.

每行显示标题范围(例如"Mr.","Dr."等).

我已经设置了scales="free"内部facet_grid(),因此每个y轴都适合它识别的组.

但是,由于有很多组/标题,我希望每个构面网格上的y轴只显示最高值而不是其间的所有值.例如,如果有40人被称为"先生",那么我希望"先生"的y轴顶部 facet网格显示值40,而不是低于此值.但是,如果只有一个人死亡,我不希望y轴读取:0.00, 0.25, 0.50, 1.00因为这些"中间"值不具有任何值.

这可以实现吗？

假设我想检查数据集中的特定值，而不是复制/重写代码，而是可以注释掉该行的一部分，例如在此（理论上）示例中，注释掉的部分将在/#和之间出现#/：

ggplot() +
  geom_col(data = df/#[df$type == "after", ]#/, aes(x = date, y = count, fill = type))

当然，此代码将无法正常工作，但是就像我设想的那样，如果它是一个功能，它会如何工作。

实际上，以上代码将与以下代码运行相同：

ggplot() +
  geom_col(data = df, aes(x = date, y = count, fill = type))

有没有办法在R / RStudio中注释掉一行的一部分？

注意：

我知道可以注释掉整行内容，并且我完全知道该如何实现。如果这是我想做的，那么我就不会问这个问题。但是，我很想知道我的问题中是否存在这样的功能，或者RStudio管道/积压中是否存在这样的功能，并且只希望您提供认真的答案。谢谢。

我编写了几个连接到服务器并收集一些数据并改变这些数据的函数。其中一项功能还可以可视化数据。

由于我总是需要运行所有六个函数 - 并且因为我在需要时编写了它们 - 我决定将它们组合成一个更大的函数（约 400 行，可能很快就会减少到约 350 行）会更有效经过一番清理后），而不必一个接一个地独立运行六个单独的函数。

在梳理这些函数之前，生成可视化效果的函数运行得非常好，它显示在PlotsRStudio 的窗口中。

由于合并了功能，可视化没有显示出来。

我添加了一行来显示图表是否已成功生成，并且始终如此；但是，我再也看不到输出了。

这是图表的代码：

if(chart == TRUE){
    ggplot(plugin_displays[plugin_displays$date <= end_date, ], aes(fill = type)) +
      geom_col(aes(x = time, y = count),
               colour = "black",
               position = "stack") +
      geom_text(aes(x = time, y = total, label = total),
                hjust = -0.15,
                vjust = 0.15,
                size = 3,
                colour = "black",
                angle = 90) +
      scale_y_continuous(limits = c(0, max(plugin_displays$total) * 1.02)) +
      labs(title = paste0("Plugin Loads & Unloads ", …

我有一个~17,000 lat/ lon值的数据框,我希望使用它来获取和填充具有等效状态的新列.

到目前为止,我已经尝试了其他Stack Overflow答案中提出的几个解决方案(这里列出的太多,但超过十个),但没有一个对我有用.

我最接近找到解决方案是使用该ggmap软件包,但问题是我被警告我已超出限制,尽管只发送一个lat/ lon值.

我有个人lat和lon价值观,甚至将它们组合成lat,lon格式,尽管如此,上述解决方案都不适用于我.

我想要做的是从给定lat/lon/ coord值确定状态并将状态保存在新列(df$state)中.

我最初匹配所有城市值以获得匹配状态,但问题在于,由于多个州包含具有相同名称的城市,因此匹配过程在第一次成功匹配后停止; 结果,我发现自己有超过2,800个属于AK的城市,尽管它们几千英里之外.

任何建议都会很棒.

这里是前100行coords,lat和lon列我的数据:

structure(list(origin_coords = c("31.9618,-83.0588", "44.8782,-69.4718", 
"37.3894,-121.8868", "36.0485,-93.5044", "37.652,-120.7292", 
"33.7942,-84.2018", "32.0749,-81.0883", "31.0286,-97.6115", "40.7559,-111.8967", 
"39.8359,-91.7538", "35.922,-80.537", "39.8036,-75.0058", "43.072,-83.8424", 
"33.5207,-86.8025", "26.1216,-80.1288", "31.9618,-83.0588", "31.9618,-83.0588", 
"61.6303,-149.8181", "33.8687,-84.3351", "42.2196,-88.2426", 
"31.7943,-85.5581", "28.3067,-80.6862", "39.1157,-94.6271", "33.831,-85.7752", 
"39.2655,-76.4935", "32.9824,-87.7919", "61.6303,-149.8181", 
"31.086,-85.7192", "31.9618,-83.0588", "39.9048,-75.2946", "34.1132,-117.3771", 
"41.905,-71.1026", "42.3921,-97.4751", "31.2627,-86.7711", "42.5864,-71.4401", 
"33.7935,-93.807", "39.0097,-123.6523", "61.6303,-149.8181", 
"37.7235,-85.9769", "38.0624,-87.2452", …

我在不属于我的存储库上发现了错误，因此我README.md直接在 Github 上修改了文件 ( )，然后提交了拉取请求。

然后，存储库的一名成员要求我还更改一个附加文件 ( README.Rmd)。

我可以将其作为原始拉取请求的一部分来执行吗？还是必须提交新的拉取请求？

如何在某个不包含特定术语的目录中搜索任何内容？

例如:

!(FINAL)

要么

NOT(FINAL)

我想FINAL在Windows XP中找到任何不包含该标题中的术语的文件(仅限文件).这可能吗？

非常感谢.

我有一列作为值读入的日期character（是的，它们应该是相同的）：

str(df$date)

$ date : chr  "30/08/2017" "30/08/2017" "30/08/2017" "30/08/2017"

然后我将这些值转换为Date格式：

str(df$date)

$ date : Date, format: "2017-08-30" "2017-08-30" "2017-08-30"

问题是，无论我选择使用哪种方法，结果日期始终是YYYY/MM/DD格式的，这不是我想要的；它们应该是DD/MM/YYYY格式化的。

我尝试：

df$date <- as.Date(df$date, format = "%d/%m/%Y")
df$date <- strptime(df$date, format = "%d/%m/%Y")
df$date <- as.POSIXct(df$date, format = "%d/%m/%Y")

它们都产生相同的格式。

我读过许多类似的 Stack Overflow 帖子以及一些指南，并尝试过获取和设置我的系统区域设置（英国）之类的事情，在这方面一切都是正确的。

我哪里错了？

有一些与此类似的问题，但提供的答案是针对那些给出的示例比我的场景复杂得多的问题而定制的。

我有一个简单的函数，可以在全局环境中创建一个对象（global_obj）。

比方说：

my_function <- function(x){
    global_obj <<- x
}

如何设置该函数来检查global_obj全局环境中是否存在，如果存在，则在继续之前将其删除？

我尝试过这样的事情：

if(exists("global_obj")){ rm("global_obj"); print("global_obj removed") }

和：

if(exists("global_obj")){ rm(global_obj); print("global_obj removed") }

但收到错误消息：

[1] "global_obj removed"
Warning message:
In rm("global_obj") : object 'global_obj' not found

和：

[1] "global_obj removed"
Warning message:
In rm(global_obj) : object 'global_obj' not found

尽管显示“成功消息”，但错误消息暗示该文件global_obj从未被删除，因为找不到它。

一些答案建议指向rm()全球环境，这是有道理的，但这仍然会导致相同的结果。

最后，我知道global_obj每次运行时都会被替换my_function()，但是我每次都想删除它有一个重要原因：它是为了防止函数可能已错误完成但没有任何警告的任何情况。

因此，这会让我相信global_obj我的全局环境中存在的环境是最近一次my_function()调用中的环境，而实际上global_obj我看到的环境可能是在之前的执行中存在的。

我想确定global_obj我在全球环境中看到的是最新的。如果该函数失败，我希望我的环境为空。