Question

我正在使用plotly来分解进化的所有因素，我想绘制一个条形图，然后将“sum”添加为标记，这样：

libelle <- c("A","B","C","A","B","C")
value <- c(1500000,987000,1540000,-600000,-627000,-1240000)
type <- c("gain","gain","gain","loss","loss","loss")
data <- data.frame(libelle,value,annee)
plot_ly(data=data,x=value,y=libelle,group=type,type="bar",orientation="h") %>% 
  group_by(libelle) %>% summarise(sum = sum(value)) %>%
  add_trace(x=sum,y=libelle,mode="markers",marker=list(color="black"),name="total")

这个图表一切正常，除了hoverinfo：我想保留第一条跟踪的hoverinfo（当我在libelle的任何地方，我从损失和增益中获取信息），以及第二条跟踪跟踪，它被另一个替换。我试图在add_trace中放入hoverinfo =“none”，没有结果。

任何想法？

Answer 1

您应该能够通过单独添加hoverinfo来说明您希望悬停显示的级别。

显示跟踪的悬停信息，而不是条形图：

if(isset($_POST['email'])) {     
  // EDIT THE 2 LINES BELOW AS REQUIRED
  $email_to = "my email address";
  $email_subject = "this is a message";     
  function died($error) {
    // your error code can go here
    echo "We are very sorry, but there were error(s) found with the form you submitted. ";
    echo "These errors appear below.<br /><br />";
    echo $error."<br /><br />";
    echo "Please go back and fix these errors.<br /><br />";
    die();
  }
    // validation expected data exists

  if(!isset($_POST['first_name']) ||
      !isset($_POST['last_name']) ||
      !isset($_POST['email']) ||
      !isset($_POST['telephone']) ||
      !isset($_POST['comments']))
  {
    died('We are sorry, but there appears to be a problem with the form you submitted.');
  } 

  $first_name = $_POST['first_name']; // required
  $last_name = $_POST['last_name']; // required
  $email_from = $_POST['email']; // required
  $telephone = $_POST['telephone']; // not required
  $comments = $_POST['comments']; // required         

  $error_message = "";

  $email_exp = '/^[A-Za-z0-9._%-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,4}$/';

  if(!preg_match($email_exp,$email_from)) {     
    $error_message .= 'The Email Address you entered does not appear to be valid.<br />';
  }
  $string_exp = "/^[A-Za-z .'-]+$/";

  if(!preg_match($string_exp,$first_name)) { 
    $error_message .= 'The First Name you entered does not appear to be valid.<br />';
  }

  if(!preg_match($string_exp,$last_name)) {
    $error_message .= 'The Last Name you entered does not appear to be valid.<br />';
  }

  if(strlen($comments) < 2) { 
    $error_message .= 'The Comments you entered do not appear to be valid.<br />';
  }

  if(strlen($error_message) > 0) { 
    died($error_message);
  }
  $email_message = "Form details below.\n\n";         

  function clean_string($string) {
    $bad = array("content-type","bcc:","to:","cc:","href");
    return str_replace($bad,"",$string);
  }

  $email_message .= "First Name: ".clean_string($first_name)."\n";
  $email_message .= "Last Name: ".clean_string($last_name)."\n";
  $email_message .= "Email: ".clean_string($email_from)."\n";
  $email_message .= "Telephone: ".clean_string($telephone)."\n";
  $email_message .= "Comments: ".clean_string($comments)."\n";

    // create email headers     
    $headers = 'From: '.$email_from."\r\n".
    'Reply-To: '.$email_from."\r\n" .
    'X-Mailer: PHP/' . phpversion();
    @mail($email_to, $email_subject, $email_message, $headers);  

?>     
<!-- include your own success html here -->     
Thank you for contacting us. We will be in touch with you very soon.
<?php } ?>

显示条形图的悬停信息，而不显示跟踪标记：

plot_ly(data=data,x=value,y=libelle,group=type,type="bar",orientation="h", hoverinfo="none") %>% 
  group_by(libelle) %>% summarise(sum = sum(value)) %>%
  add_trace(x=sum,y=libelle,mode="markers",marker=list(color="black"),name="total", hoverinfo="all")

如何禁用R中的第二个hoverinfo？

1 个答案: