小编geo*_*ory的帖子

是否有内置函数来检查单元格是否包含给定的字符/子字符串？

这意味着您可以在条件基础上应用Left/ Right/ Mid等文本函数,而不会在分隔字符不存在时抛出错误.

跑步brew update我得到以下内容:

/usr/local/Library/brew.sh: line 32: /usr/local/Library/ENV/scm/git: No such file or directory
/usr/local/Library/brew.sh: line 32: /usr/local/Library/ENV/scm/git: No such file or directory
[etc..]
Error: update-report should not be called directly!

致电brew config报告如下:

HOMEBREW_VERSION: 0.9.9
ORIGIN: https://github.com/Homebrew/brew.git
HEAD: 90e84453f9adda65de6b9274987d06e46caa5d37
Last commit: 4 hours ago
Core tap ORIGIN: https://github.com/Homebrew/homebrew-core
Core tap HEAD: 05ce2548bad01807c6be2aece21ab70d221755e6
Core tap last commit: 8 weeks ago
HOMEBREW_PREFIX: /usr/local
HOMEBREW_REPOSITORY: /usr/local
HOMEBREW_CELLAR: /usr/local/Cellar
HOMEBREW_BOTTLE_DOMAIN: https://homebrew.bintray.com
CPU: quad-core 64-bit ivybridge
Homebrew Ruby: 2.0.0-p648
Clang: 7.3 build 703
Git: …

有没有一种有效的方法来使用基函数识别字符串中的最后一个字符/字符串匹配？即不是最后一个字符/字符串的字符串,但字符/字符串最后出现的位置在一个字符串. Search并且find两者都是从左到右工作所以我无法思考如何在没有冗长的递归算法的情况下应用.而这个解决方案现在似乎已经过时了.

如果在ggplot中指定轴限制,则删除外围点.这适用于点,但您可能希望绘制与指定范围相交的线,但ggplot range或xlim/ylim方法会删除这些.是否有另一种方法来指定绘图轴范围而不删除外围数据？

例如

require(ggplot2)
d = data.frame(x=c(1,4,7,2,9,7), y=c(2,5,4,10,5,3), grp=c('a','a','b','b','c','c'))
ggplot(d, aes(x, y, group=grp)) + geom_line()
ggplot(d, aes(x, y, group=grp)) + geom_line() + scale_y_continuous(limits=c(0,7))
ggplot(d, aes(x, y, group=grp)) + geom_line() + ylim(0,7)

我想将闪亮的绘图缩放到窗口的高度.这个相关的SO问题仅使用绝对高度规格(以像素为单位),当a height = 100%更为可取时.我在文档中注意到absolutePanel可以用它的top, bottom, left, right参数实现这一点,但是你丢失了侧面板,并且无论如何情节(缩放到宽度)似乎忽略了可用的高度.

我猜这与html怪癖有关,这意味着你需要用javascript innerHeight变量获得高度.但我不清楚如何实现闪亮的解决方案ui.R以利用它.感谢任何指针.

开发的基本应用程序模型:

ui.R

library(shiny)
shinyServer(
  function(input, output) {
    output$myplot <- renderPlot({
      hist(rnorm(1000))
    })
  }
)

server.R

library(shiny)
pageWithSidebar(
  headerPanel("window height check"),
  sidebarPanel(),
  mainPanel(
    plotOutput("myplot")
  )
)

难以在ggplot中设置地图的颜色比例.我需要灰度.非常感谢我出错的想法.我还想知道是否有更有效的方法将颜色变量变为ggplot(即将其附加到'强化'数据)？

library(ggplot2)
states <- map_data("state")
var <- data.frame(table(states$region)) # using rows as a dummy variable
states$variable <- var$Freq[match(states$region,var$Var1)]

map <- ggplot(states, aes(x=long, y=lat)) + 
  geom_polygon(aes(group=group, fill=variable), col=NA,lwd=0)

map + scale_colour_gradient(low='white', high='grey20')
map + scale_colour_grey()

如果你定性地映射到大量组的颜色,ggplot的自动颜色分配会相邻地绘制非常相似的颜色,这使得很难看出哪个引用哪个键等.为了说明:

require(ggplot2); require(stringr)
df = data.frame(x = letters, y = sample(20:100,26), lab=word("apple ball cat dog elephant frog goat hat ice jackal king lion mango nest owl parrot queen rabbit ship tomato umbrella van watch xylophone yatch zebra", 1:26))
p = ggplot(df, aes(x, y, fill=lab)) + geom_bar(stat="identity")
p + scale_fill_discrete()

可以手动混合一些随机颜色:

cols = rainbow(26, s=.6, v=.9)[sample(1:26,26)]
p + scale_fill_manual(values=cols)

..导致更有用的彩虹分裂,但这看起来很笨拙,仍然留下一些颜色聚集在一起,一般不理想.ggplot有一个本机方法来实现这样的东西(但希望更好)？

我正在使用ggplot2(使用geom_bar和coord_polar(theta ="y"))绘制一个40+柱/环的大极坐标图/饼图,并且发现y轴绘图压缩导致最内圈的环很差多边形分辨率

有谁知道提高多边形分辨率的方法？

df <- data.frame(
  x = sort(sample(1:40, 400, replace=TRUE)), 
  y = sample(0:9, 400, replace=TRUE)
)


ggplot(df, aes(x=x, y=y, fill=y)) + 
  geom_bar(stat='identity', position="fill") + 
  coord_polar(theta="y") + 
  scale_fill_continuous(low="blue", high="pink")

这就是我所想要的几何分辨率.我通过绘制只有5个级别来管理这个.

当我增加到40级时,中央多边形会失去光滑度并变得过于锯齿状,如下所示:

有没有一种方法可以输出(UI结束)Shiny图到PDF供应用程序用户下载？我尝试过各种类似于涉及ggplot的方法,但似乎downloadHandler无法以这种方式运行.例如,以下内容只会生成无法打开的PDF文件.

library(shiny)
runApp(list(
  ui = fluidPage(downloadButton('foo')),
  server = function(input, output) {
    plotInput = reactive({
      plot(1:10)
    })
    output$foo = downloadHandler(
      filename = 'test.pdf',
      content = function(file) {
        plotInput()
        dev.copy2pdf(file = file, width=12, height=8, out.type="pdf")
      })
  }
))

非常感谢您的帮助.

似乎字符类型的组合可能会对显式粘贴操作的结果顺序产生意外结果:

(x = paste(c('green','????', '????'), collapse=' ')) # arabic for blue and red
#> [1] "green ???? ????"
paste(x, 'yellow')
#> [1] "green ???? ???? yellow"
paste(x, 123)
#> [1] "green ???? ???? 123"

有没有任何已知的解决方案 - 即确保连接的顺序与给出的参数相同？也许答案是不要连接不同的字母表!