我有一个树形图(如下所示).我想要的唯一变化是将子组的颜色(图中的YEAR)更改为不同的颜色,而不是全部为蓝色.这有可能吗？

样本数据框

PL <- c(rep("PL1", 4), repl("PL2", 4), rep("PL3", 4), rep("PL4", 4))
CNT <- sample(seq(1:50), 16)
YEAR <- rep(c("2015", "2016", "2017", "2018"), 4)

df <- data.frame(PL, YEAR, CNT)

情节

PL <- c(rep("PL1", 4), repl("PL2", 4), rep("PL3", 4), rep("PL4", 4))
    CNT <- sample(seq(1:50), 16)
    YEAR <- rep(c("2015", "2016", "2017", "2018"), 4)

    df <- data.frame(PL, YEAR, CNT)

    # plot
library(ggplot2)
library(treemapify)
treeMapPlot <- ggplot(df, aes(area = CNT,
                              fill = CNT,
                              label=PL, 
                              subgroup=YEAR)) +
      geom_treemap() +
      geom_treemap_subgroup_border(colour = "white") +
      geom_treemap_text(fontface = "italic", …

我使用的是联想ideapad 320s。我可以在 xrandr 中看到 HDMI1 已连接，但没有图像。会不会是硬件太新了？我是否应该转向 Debian 测试看看是否有效？在 xfce4 gui 显示应用程序中，我可以看到我的 HDMI 显示器被禁用，但不知道如何启用它。另外“xrandr --output HDMI1 --auto”也没有帮助。

代码：

OS: Debian 9.1 stretch  
Kernel: x86_64 Linux 4.9.0-3-amd64  
Uptime: 8m  
Packages: 1789  
Shell: zsh 5.3.1  
Resolution: 1920x1080  
WM: i3  
GTK Theme: Arc-Dark [GTK2/3]  
Icon Theme: Tango  
Font: Sans 10  
CPU: Intel Core i5-7200U CPU @ 3.1GHz  
GPU: Mesa DRI Intel(R) HD Graphics 620 (Kabylake GT2) 

我一直在寻找如何以编程方式显示内部标签（重叠项）来绘制维恩图。代码中没有错误，但是我仍然无法弄清楚该如何解决。

维恩图

  require(VennDiagram)

  AA <- c("hi","foo", "bar","yep","woo","hoo")
  BB <- c("baa","yep", "woo","yes")
  CC <- c("yes","foo","hi","woo", "huh")

  x <- list(AA=AA , BB=BB , CC=CC)


  v0 <- venn.diagram( x, filename=NULL)

  grid.draw(v0)

  overlaps <- calculate.overlap(x)
  #overlaps <- rev(overlaps)


  for (i in 1:length(overlaps)){
    v0[[i+6]]$label <- paste(overlaps[[i]], collapse = "\n") # labels start at position 7 in the list for Venn's with 3 circles
  }


  grid.newpage()
  grid.draw(v0)

最近几天出现了一个小问题，我将在Visual Studio 2017上创建一个新的Xamarin Forms项目，并添加一个Xamarin.UITest跨平台测试项目进行单元测试，当我引用时会收到一系列NU1201错误UITest项目中的.Android应用。

这是我得到的确切错误：

Error NU1201    Project App1.Android is not compatible with net461 (.NETFramework,Version=v4.6.1) / win-x64. Project App1.Android supports: monoandroid81 (MonoAndroid,Version=v8.1)    

我一直在玩Android版本号，以查看UITesting包是否不支持最新的android，但是无论我瞄准的是哪个版本的android，问题都保持不变。

这是该项目的屏幕截图。 所有代码均与默认项目保持不变，并且可以在模拟器中正常运行，但仅在将Android应用程序引用到UITest项目时才产生这些错误。

我在 Laravel 中遇到交易问题。当我尝试使用以下代码执行此操作时，错误出现在屏幕上，就好像我没有交易一样。

\DB::transaction(function() use ($movement, $movementRows) {
   $movement->save();
   $movement->rows()->saveMany($movementRows);
});

当我尝试使用下面的代码执行此操作时，尽管第二个对象失败，但会保存第一个对象。

\DB::beginTransaction();
try {
     $movement->save();
     $movement->rows()->saveMany($movementRows);
      \DB::commit();
      $success = true;
} catch (\Exception $e) {
    $success = false;
    \DB::rollback();
}

if ($success) {
    // the transaction worked ...
}

我有下面的代码,将数字保存在一个字符串中.它可以保持积分,但我想保留积分,如果他们是由数字跟随.所以该功能应该给我以下结果.我应该在正则表达式模式中更改以获得此类结果？

输入| 产量

..0.236 | 0.236

bfbv0.011 | 0.011

...11 | 0.11

.rty12.45dt | 12.45

qw-23.25 | -23.25

是12.52.| 12.52

将是+336 | 336

代码:

Public Function NumericOnly(s As String) As String
    Dim s2 As String
    Dim replace_hyphen As String
    replace_hyphen = " "
    Static re As VBScript_RegExp_55.RegExp
    If re Is Nothing Then Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True

    re.Pattern = "[^0-9.-]+"
    s2 = re.Replace(s, vbNullString)

    NumericOnly = re.Replace(s2, replace_hyphen)
End Function

我试图让我的 Django 表单中的所有字段都具有相同的大小以看起来整洁。我有文本输入、下拉和文本区域。我正在使用Ticket模型创建表单，因此我没有明确定义表单字段。我能够调整文本输入的大小，但是控制宽度的下拉字段中的属性是什么？请注意，下拉列表中的选项基本上是来自模型中定义的另一个表的外键。

class NewTicket(forms.ModelForm):

    class Meta:
        model=Ticket

        fields = ('subject','business','project','description')

        widgets={
            'subject': forms.TextInput(attrs={'size': '20px'}),
            'business': forms.Select(attrs={'size': '20px'}) #this line does not work
            }